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The cost of computing hardware has decreased so rapidly that the 
microcomputer has been placed within the financial range of even the 
smallest business enterprises. That they have not been more fully uti- 
lized indicates the lack of a readily available, comprehensive set of 
business programs that ireea^y to use and understand, inexpensive, and 
adaptable to the practical requirements of the small office. The objective 
of this book Is to provide a set of business-application systems that will 
allow your computer to start paying for itself the moment it enters your 
office. Their range is broad enough to guarantee that the computer's po- 
tential may be exercised in the critical areas of your specific business. 
Tlicir independence and modularity allow you to apply only those 
portions that are relevant to your business so that you do not have to 
pay for the overhead of unnecessary functions. 

Th^ applications have been designed for the typical business sys- 
tem that makes use of disk storage and printed output media; they do 
not rely upon other features that might not be so easily obtained. As you 
gain familiarity with computer use, you should find it progressively 
easier to make modifications to these programs to utilize the features of 
your particular machine. 

The Book's Formal 

The computer applications given here have been formatted in away 
that the author hopes will be of the greatest value to the reader. They 
arc grouped in sections of logically related business processes. Kach 
series of programs has been supplied with detailed information/docu- 
mentation in the following form: 

1. A general description of the business process is provided as well as 
of the computer approach to be used. 

2. A description of the s^'stem's operation includes flowcharts as well 
a,s procedures for recovering from inadvcrtcntcrrors whenever such 
procedures are appropriate. 



J. All files used by the system are explained, and a detailed layout is 
provided. 

4. All major variable names (symbols) appearing in the programs are 
explained. In addition, all feacures of a program tliit may differ 
slightly in other versions of BASIC are specified, A detailed expla- 
nation of these features may be found in the Appendix, 

5. A complete listing of individual programs is provided with remarks 
and data necessary for initialization. All line numbers are incre- 
mented by ten (10) to insure ease of entry and extension or 
modification. A functional description of each program is also 
provided. 

6. Examples of outputs from the programs enable you to follow them 
in detail from their initialization, to the final result. 

Entering and Interpreting Programs 

The programming approach taken in this book is meant to facilitate 
your ease of program interpretation and extension or modification. It 
does not take advantage of many language facilities that minimize 
program length or processing speed. Concise, highly efficient routines 
have been avoided as a rule because they too often result in a lack of 
clatity and the modularity needed :o facilitate modification and change. 
Indentation and comments have been used liberally to assist you in in- 
terpreting each program's operation. 

Initially, all programs should be entered and tested exactly as they 
are given. As you gain familiarity with your machine, you may wish to 
take advantage of various memory and time-saving features, such as 
(1) eliminating extraneous spaces in the instructions, (2) variable di- 
mensioning of arrays, and (i) placing multiple statements on a line (so 
long as clarity is not affected), [n addition, you may wish to modify 
various programs by combining several into one or to build new pro- 
grams from the processing modules already supplied. 

Program Compatibility 

Each program within a single application area has been designed to 
be consistent both in the use of variable names (symbols) and in process- 
ing methodology. The Appendix discusses the language features used in 
the programs both ;is an aid in sunnounting difficulties and to facilitate 
customi;?ation of the programs' functions. 

Understanding System Operation 

Flowcharts are used to facilitate understanding of the operation of 
the systems. The flowcharting symbols are the standard ones and re- 
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main consistent throughout the booli. Figure 1-1 illustrates the symbols 
used to portray the operations of a system, and Fig. 1-2 exemplifies 
their use. Note that whenever a symbol is drawn with dashed lines, the 
process (or function) represented is optional. 
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This series of programs is designed to provide the processing re- 
quired to automate a simple bookkeeping system. The necessary ae- 
counting reports include (1) a trial balance, (2) an income statement, 
(3) a balance sheet, and (4) a post closing trial ba-lance. Facilities to 
initiate, update, and correct files are presented. Additional programs are 
provided to help you operate the system and to prepare comparative 
income and expense analyses, 

'I'he programs have been designed to work from (accept data in the 
format of) a typical general-purpose journal. Thisjournal should provide 
the following information; 

1. Date 

2. Journal entry number 
J. Account to be debited 

4. Debit amount 

5. Account to be credited 

6. Credit amount 

With the exception of the date, the items shown constitute the 
minimum necessary for data entry to the system. The entries in the files 
are referenced by the journal entry number, which must he entered for 
each transaction. A zero entry number will cause the transaction to be 
ignored by the program. It is recommended that journal numbers be 
entered consecutively to allow case of reference and comparison to the 
manual journal. The numbering system should begin with the number 2 
since 1 i,s used hy the system to indicate starting balances for the ac- 
counting period. 

The programs can be used to process several independent account- 
ing systems simultaneously. To do so, it is necessary to create (initialize) 
a separate file for each system. Since each program requests the filename 
for processing, different files can be used to separate the accounting 
systems. If only one system of accounts is to be maintained, the pro- 
grams can be easily modified to eliminate the need for operator entry 
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of the filename; the PRINT and INPUT statement for the filename is 
merely replaced with F$=xj£xxxx, where "xxxxxx" is the name of the 
accounts file. 

Since this system relies upon random file handling, some differ- 
ences will occur in other versions of BASIC. The "Functions Used" 
tabic indicates the special functions employed, (The Appendix explains 
the purpose and operation of ail functions.) The file handling pro- 
cedures have been isolated as much tis possible in order to facilitate 
their modification. 

Since the security of accounting information is critical to the 
operation of most businesses, you should institute a procedure that will 
copy your accounts file whenever a significant number of transactions 
have been entered. Jf necessary, of course, recovery can be assured by 
the reentry of all journal entries. 

Operation of the System 

The operation of this computer bookkeeping system is simikr to 
the operation of a manual system, with the exception of the assistance 
the computer offers in each of the steps. The sequence of actions iisted 
in Fig. 2-1 ilkiatrates the operation of the system. 
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fig. 2-1 Operation ot the sysiem 
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Initialization of files occurs at the beginning of the accounting year. 
This creation of the files sets up the accounts for the bookkeeping 
operation. 

Normal operation of the system throughout the accounting year 
involves (I) the po.sting of journal transactions fusing RPOST) for each 
accounting period (month), (2) producing the necessary reports a.t the 
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Fig. 2^7 Inc^orrie and expense analysis 

end of each month, and (3) closing out the accounts to prepare for the 
next month. 

The programs BPRINT, BFLIST, B JOURNAL, and BCOMP can 
be executed at any time they are needed. 

The flowcharts in Figs. 2-2 through 2-7 illustrate the proce^ing 
accomplished at each step of the various programs. 

Files Used by tl>e Bookkeeping System 

The bookkeeping system requires one file for its operation. The 
iccoTinrs file— created by program BCREATE— is a random access 
file. All records arc identical in format, but the first X records contain 
system information (X must be greater than 6). The format of the 
records is shown in Fig. 2-8. 
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System records 

Records numbered 1 to X are used by the system to maintain file 
contents information and to provide growth storage locations that will 
not be affected by the system's operation. 
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Record No, 1 contains the date of the file's last update (D$), the 
number of system records LR$(1)} > the number of account types 
[RS(2)1, md the last record number used (RS(3)] . 

Record Nos. 2 to N2 contain the tide of each account type (D$) 
and chc number of that type [R$(l)] . 

Record No. X is the In come/ Expense Summary account that is 
used as an ordinary account for bookkeeping operations. 

Account records 

Record Nos. X+ 1 to N3 + X+ 1 arc individual records for each ac- 
count requested. Every account contains a description (D$) and Nl oc- 
currences of the journal entries. Each journal entry contains a reference 
number (R$), a transaction code (S$). and the amount of the transaction 
(V$). The last two entries of each record are pointers to preceding or 
succeeding records. When the number of entries against an ajccounc 
exceeds Nl, an extension record is initiated. This record, which is 
located in the area of the file beyond the account records, is accessed 
through the use of the next record pointer contained in the basic ac- 
count record (N$). The last record pointer (T.$) is used in the extension 
record to point back to the basic account record. 

The progrims that have been provided for maintaining and operat- 
ing the bookkeeping system are listed in Fig. 2-9, 
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Creating and Initializing Files 

Program hi'anie: BCR.EATE 

This program creates and initializes files for the bookkeeping sys- 
tem. It produces one file that is given the name specified during the 
program's operation. The program passes through the file twice, the 
firs: time to initialize the records ;ind the second time Co verify their 
creation and allow the entry of specific account names for each record. 

Files Affected: Account file (created) 

5 CLEAR 900 

10 REM SAVED AT BCREflTE 

30 REtl file; CR!:ATICIM program for BnQKKEfTprNG 

Z.0 REM tlitt*i***t***lt».********ttii.*k***t**.*i.1i.t.*.*iit*».il***t**tiii:* 

3S CLB 

*0 Ml=15 

SO 3(=9 

to C=*X 

70 N2=5 

SO DIM R*<N1! , V*(N1) ,T« (M2> , M0(M2) ,B«(N1> 

<?0 PRINt "BOOKKEEPING FILE CREflfTOW PROGRAM" 

IM PRINT 

1 10 PRINT 

i20 PfttNT "ENTEft THfi I^ILE Nfttlfi PtJR THE FIUE OF ftCCOUfJTS ■■5 

loO INPUT Ft 

140 PRINT "ENTER TODAY'S DflTE"S 

ISO INPUT Dl* 

liO PRINT 

170 FQR I-l TO N2 

I BO READ T4fl> 

190 NEXT I 

20» DATA ftSSETf3,L lABlLITIES.CWPITSL. IMCQME, EXPENSES 

210 PRINT "ENTER THE MfiXIMUh NUMBER tIP (ACCOUNTS FOR EACH OF" 

220 PRINT "THt POULDW3N6 TYPES OF ACCOUNT CATEEiORIES: •■ 

230 PRINT 

240 POR 1-1 TO N2 

2S0 PRIVT TtCI);" ";TAB<1S)! 

2AO INPUT NOdi 

270 NE!<T I 

280 C30SUB 710 ■FILE OPEN S- Dt.FINk 

390 REM )t;tl(«)i«*K*«*ii!t«i(!(tili* RECORD PROCESSING iH(1tti.%***-IH.*tt.tii. 

300 POR 1=1 TO N2 

310 FOR J=] TO MOID 

320 C^C+1 

330 K=C 

34l> aOSUF aSO 'FILE WRITE 

5SO NEXT il 

360 NEXT 1 

370 K9=K 

380 l3flSUC 900 ■ENTEf: NftME ftND W«ITE 

390 RE:m **«*«*««*»:**** PROGRAM TERMINATION PdlNT ****«*»***» 

400 PRINT 

410 FCtR 1= I TO NK 

H'2<3 LSET R«tI) = t1KI*(NO(I>) 

430 K=I+l 

440 QDSUS 831-1 'RECORD UIRITE 

4S0 LSET R* tl>=MKia. (0) 

4AO NEXT 1 
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470 FOR 1 = N2+1 TO >;-I 

Affl LSET D*="UNUSED" 

SOO GOSUB B50 'REGORB WRITE 

510 NEXT I 

520 K^X 

S3Cf LSET D*="lNCUt1E/EXPENSe SUM." 

340 OOBUB aso 'RECORD WRITE 

5:50 FOR 1^1 TO W2 

BAO LSET R* (S+n=MKl* (NOtl ) ) 

570 NEXT I 

seo K^i 

590 LSCT D*=-Dlt 

iOO LSET R«a>=MKr»<X) 

t20 LSET R*(3>=MKI«(K'?> 

630 G05UB sao 'REcgRo write 

MO PRTNT "THE ACDOUNTS FILE - "jF*;" Hf^if BEEN CREATED" 

650 PRINT 

A55 CLOSE 1 

660 STOP 

670 REM it*t*ilt*il***ttt***'lt******)t^t*t***lt***.****t*.*lf.*.**)lt*tl. 

ASO REM SUBRUUriMES FOLLOW 

690 REM lttlHlttt**tt*yit*t*ttt*lt*t*ll*t*tl*li.tt:t***t**i^Tt'*t**ttit* 

7t:i0 REM ****** FILE DPEN AMD DEFINITION ROUTINE *»»;*** t «** 

710 OPEN "R", 1,F* 

720 FIELD 1,19 OS D* 

■/30 FOR 1= 1 TD Nl 

740 FIELD l,19+a-i)*7AS i(*,2 flS R*(rJ,I hS S*a>,4 rtS Ut ( I J 

7bO LSET R«tl >"riKl* (O) 

7AO LBET y* (IliiMKS* (O) 

770 LSET S*(I>="X" 

7SO NEXT I 

790 FIELD 1,124 AS X*, 2 AS L»,2 AS N* 

et-f.' LKt£T L«=MKI*(0) 

BIO LSET rj*^MIi-l±<0) 

B20 RETURN 

3Z<.> REM t*************** FILE WRITE ReCORD#K iKtill****!********* 

S40 LSET D*=T*< I! 

850 PUT 1 , K 

B6i> RETURtJ 

S70 Rfn ** + **»********»»« FU.E RfTAD RGC0R0#K «***»*i|fit»if *it*if* 

B30 BET 1 ,K: 

S9u RETURN 

900 REM «***»*♦*«**« ENTER ACCOUNT .DEBCRIPTI DNS ***»******!* 

910 FOR K=-X41 TD K9 

92i'i ROBUEl 870 "FILE WRITE 

930 PRINT "ACCOUNT DESCRIPTION IS: "?D* 

740 PRINT "ENTER ACCOUNT NAME"; 

Vao INPUT D2* 

960 LSET D*=D2« 

970 GOSUB 8E0 'FILE WRITE 

9SO NEXT K 

990 RETURN 
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FfUN "BCREftTE" 

BUD^KF:t:PIND file creation program 
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ACCOUNTS '' MY -BOOKS 



EWTER THE MAXIMUM NUMBER OF rtCCUUNTS FOR tACH OF THE 
FOLLOWIWQ rrP£S OF ACCOUNT fflTEiJORIK!?: 



(ASSETS T 3 

LlrtBiHTie:;; '? 3 

MPtTfiL,, ,., ? 2 

INCOME 7 1 

EXPENSES. .... ? 3 
^CtULNT DESCRIPTION 
ENTEft ACCOUNT MfthET 
aCCDUMT HESCRIPTION 
EWHh flCCUUWT WftMET 
ACCDLNT DESCRJPTIDN 
EWrER ACCOUMT NAME? 
ACCOUNT [lEBCRIPTIDN 
ENTER A[;c0UNr NAHEV 

ficcmjwT iitscRipnow 

ENTER ACCOUNT NftME? 
ACCOUNT DESCRIPTION 
ENTER ACCOUNT NftMET 
ACCOUNT DESCRIPTION 
ENTER ACCOUNT NAME? 
ACCOUNT BEGCRIPTION 
ENTER ACCOUNT NAME? 
ACCOUNT DESCKIPIION 
ENTER ACCOUNT NAME? 
ACCOUNT DEBCRIPTION 
ENTER ACCOUNT NAME? 
ACCOUNT DESCRIPTION 
ENTEfi ACCOUNT NAME? 



is; ASSETS 

CASH 

IS! ASSETS 

SUPPLIES 

IS! ASSETS 

EQUIPMENT 

ISr LIABILITIES 

ACCOUNTS PAYABLE 

is; LIABILITIES 

noteb payable 
is: capital 

CAPITAL 

IS! CAPITAL 

DRAUING 

13; INCOME 

FEE INCOME 

Ui! eXPI-MSES 

REMT 

tH! E5<PEHSES 

BJJf'PLIES EXPENSE 

is: e>;pen3EB 
telephone expense 



THE ACCOUNTS FILE - MY-BOOKS HAS BEEN CREATEB 



BREAK IM 4^0 
OK 
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Posting Journal Entries 

Program Name: BPOST 

This program allows the entry of journal transactions in the ac- 
count file. Transactions can be entered from the journal in batches to 
increase operator efficiency. Multiple runs will not cause difficulties 
with the system's operation. Errors made during data entry can be 
corrected with program BPRINT, 

FUes. Affected: Account file 

10 REM SAVED AT BPOST 

20 REM JOURNAL POST I MB FRDBRftM FDft BQDKKTEflNG 

30 REM t%tttt)l:*1I.Mitt****vt**ll.tW*i%t*i*t**1l.**IHt*t*1i**»*HIHt»*llt**» 

3S CLS 

*a Nl=15 

50 DIM R* fMl > , V* (Nl) ,B«<NI) 

<bO DIM RIMl) ,V<Nt) 

70 DIM T*(fi>,MOt5) 

80 PRINT "EWTEF; the FILE WflME OF THE fiCCOUNTS FILE") 

•iO INPUT F* 

100 RtlSUE Mf^O 'OPEN FILES AND DEFINE 

1 10 k=i 

120 GQSUB 770 'FILE READ 

130 Jf-CVI fF!*{l> ) 

itO N2=CVI (RtCJ; ) 

ISO K-^^-CVI (R« (3) > 

IhO N3"X 

170 PRINT 

IBO PRINT "D«TE OF LAST FILE UPnflTE WAS: ■';!}* 

190 FDR K=2 TO NS+i 

2CI0 GDSUEj 770 'FILE READ 

2ifp weiiK-DsCvr (R*(in 
320 n3="n:;+no(k-i > 

230 T«(»i:-1>=D« 

240 NEXT K 

2SO PRINT 

2tO PRINT "WOULD VOL) LIKE AN ACCOUNTS LIST (V OR W ; 

•270 INPUT A* 

2BO IF" LEFT«<A*, 1)-"V" THEN BOSUB 800 ' ACCCUMT LIST 

390 PRINT 

ZOO PRINT "ENTER JIJUfiNAL TRANSACTrONS iN THE FOl.LOWIWB FORMt " 

310 PRINT "JOJRNAL NUMBER, D OR C <F(DR DEBIT OR CREDIT), "5 

320 PRINT "SCCOIJNT NBRffltlOUNT" 

325 PRINT 

330 PRINT " I.E.. 11 1,D, 10, W"*. f9" 

340 PRINT "TO POST JOURNAL ENTRY 111 ftS A DE:BIT AGAINST "5 

345 PRINT "flCCDUNT lO" 

350 PRINT 

360 PRINT "A 0,0,0,0 ENTRY MILL TERNINATF THI£> FROHRAM" 

370 PRINT 

380 PRINT "ENTER YOUR JOURNAL TRANSiBiCTIONS WGW 

ZfO RI=0 

^00 INPUT Hl,Sla,K,UI 

410 IF Rl^O THEN 300 

45-0 IF K>-X AND K;^N3 THEN 430 

430 PRINT "INVflLIEi ACCOUMT NUMBER — TRY AGAIN" 

440 GOTO 390 

450 IF S1*="D" OR Sl*ij"C" THEN 4ao 

4^0 PRINT "ENTER IJ FOR DEBIT - OR - C FDR CREDIT TRY AGAIN" 

470 GSITO 3V0 

4S0 GOSUB 990 'POST THE TRANSACT lUN 



'S90 BOTD 390 

30O REM *****»**«*«**« PRtlGRflM TERMIWlTinN POINT *** t******** 

510 PRINT "ENTEFt TODAY" S DATE"; 

S20 INPur I>1* 

330 K-1 'FlLfi REflD 

540 BDSUS 77 Ci 

550 lse:t D*-D1.« 

SAO LSET R«(3>==ht! IS(K9) 

570 6DSUB -■HO 'FILE WRITE 

SBO P-ftlNT 

S^O PRINT 

iOO PftINT "PROCESSING CnrtPLElE" 

610 PRINT 

il5 CLOSE 1 

i?0 EiTDP 

630 REM »m»;lt>l(itll<>litlt»lC*»«i««»*«4»t:*«j(t>l»«tt»«im****»it:t***f ** 

A40 REM Sl.tBPi.1t.tTSNi£S FOLLCIW 

660 REM ********* FILE OPEN AMD DEFINITION ROUTINE ********** 

i70 OPEN "R", J , Ft 

680 FIELD 1,19 m DH. 

i?0 FOR 3= i TO Ml 

7<'C FIELD 1 , 19* (I--n t7 AS K*,2 rtJi R*<n,l AS 5* < I ) , 4 AB y*(I> 

710 NEXT I 

720 FIELD i,l24 AS X»,2 AS L»,2 flS IM* 

T'SO RETURM 

740 REM (t********** FILE WR3TE - RECORDSK **«******«*«**«*«* 

750 cur 1,K 

7AO RE. TURN 

770 REM *****«*«»*** FILF: RERD - RECnnD#K ****t**j|ltlll*i|i»***tltj|l 

790 GET 1,1-: 

7f& RETURN 

BIJO REM »««*»*****«* fiCCnUNT LIST AREA **** t*» w** «* t * * ♦* t **» * * 

eiO PRINT 

a^O PRINT TAB(4)i"fiCC «" j TAB < ia> q "DESCRIPTION" 

B30 PRINT TflB(4);" "5TAB<13»;" " 

e4t> PRINT 

eso K==x 

SiO SOSUE 770 'FILE READ 

670 PRINT TflB(S>;KjTAEi<12) iO* 

S?0 FOR 1^1 TO N2 

90O PRINT T»(I ) 

910 FOB J-3 Ti: NOi r ) 

920 BOSUB 770 'FILE READ 

930 PRINT TftlJO>si^!Trtl><i2) SD* 

950 NEXT J 

960 PRINT 

970 NE)(T I 

vao HtTURN 

990 REM ifitt****.*IHi*fm***:tlnllt***** p 081 IMG AREA x**l/^lnnttlHf*t. 

IGOO GDBUB 770 

lOlO FOR I"t TO Nr 

1020 R(I>=CVHR*nH 

1030 IF R(I>t0 THEN 1070 

1O40 W(I)=CVS<U»(I) ) 

lOSO WEXT I 

1O60 GOTO 1120 
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'INITIATE EXTENSION RECORD 
'FILE WRITE 



"REftD FILE 



1070 UGET Rf <I>=f1KJ*(Rl) 

1080 Lser s*a)=si* 

1070 LSET y*CI>=Mi<S*(Vl> 

1100 N=0 

mo IF ^"Nl THEN 1170 

1120 N=CVI(N«) 

1130 IF N>0 THEN K^M 

1140 IF NiO THEN lOOO 

1150 K'?=K9+1 

1160 GOSUB 1230 

1 1 7C1 eOSUB 740 

Ugo IF Mi-0 THEW 1220 

1 1 VO K-N 

120O BDSUB 770 

1210 GOTO 1000 

1220 RETUW 

1230 FlEM tt*i*«****« INITIflTE EJtTENSIDN RECORD t» * ************* 

1240 OET 1,K'9 

IISO LSET L*=MKIt(K) 

12iO LSET N«=«K:I±C0> 

1270 LSET Dt-'-EJlTEMSION F<eCORD" 

12S0 FOR 1=2 TO,Nl 

1290 LSET R*(I )-MKI«SO) 

13O0 LSET V* < I ) =t1KS* (01 

1310 NEXT I 

1320 L3ET R«(U=«KI»(R1) 

1330 LSET S*(U=31* 

1340 LSET V«(1)=MKS«(W1) 

13S0 PUT 1,K9 

1360 BET 1,K 

1370 LSET N»=MKI»(K9) 

1390 RETIJRN 



RUN 'BPOBT' 

ENTER THE FILE WAME OF THE ACCDUNT3 FILEV MY-600KS 

BftTE OF LAST FILE UPDATE UAS : JflNUftftr 1 IfSl 

UOULtl rtlLI LIKE ftN ACCDUMTS LIST <V OR N)T H 

ENTER JOURNAL TRANSACTIONS IN THE FOLLOWING FORM; 

JOURNAL NUMBERrC OR C !FOR DEBIT OFJ CREnjT) , ACCOUNT NBR.ftKdUHT 

I.E., lll,l>,l0rlSf;.79 
TO POST JOURNAL ENTRY 111 flS A DEBIT OF 159.99 AGAINST ACCOUNT 10 

A OjOjO.O ENTRY WILL TERMINATE THIS PRODRAM 

EMTER VOUR JOURMAL TRANSACl IONS NOU 
'? 2>DrlOr2000 
? K.CIS'MOO 
? :j.C.10rl50 

'' 3-Dtllfl50 
? J|rD!l2.1000 

? 4TC,13rl0O0 

7 SfD, tOflSiO 
? 5rC.17>12SO 
7 6rC.10>2SO 
? 6TDriSF350 
7 /'►CfIOtIOO 
? 7iDr2UrlOO 
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T SiDFj3r600 

7 10rC)10i200 

7 OfOiOiO 

ENTER TOBAy^S OftTS? JrtNUARY 30 19ai 



PROCESSING CQtWLETE 



IIFJEAK IN i20 
OK 



Trial Balance 

Program Name: BTRIAL 

This progcam produces a. trial balance chat allows you to reconcile 
accounts at month's end. Out-ofbalance conditions, or other problems, 
can be diagnosed and corrected through the use of program BJOURNAL, 
which recreates ail journal entries, or EPRINT, which displays and 
corrects individual accounts. 

Files Affected: None 

10 REM SAWED AT BTRIAI. 

20 Rgfn f-RODUCES TRIAL ftPiLAMCe 

Z(> REM tiH:*t*ttt****»**^*****t****iltiHi.ttJt**t************t**t**it 

35 CL3 

40 Nl=15 

30 N5-5 

to DIM R» fNl) , V* tNI) , S«(N11 

70 Din R(N1) . V(N1 ) 

SO DIM T« (S) ,MO<5) 

<?0 PRINT "ENTER THE NAME OF THE ACCOLtNTS FILE"; 

100 INPUT F* 

110 GD5IJB 3iO 'OPEN FILES AMD DEFINE 

120 K=£ 

J30 ESaSUB ilJlO "FILE REfiD 

140 X=Cyi (R*(l>) 

150 N2=CUI (R*f2)) 

liO N3=>; 

)70 PRINT 

laO PRINT "DftTE OF FILES LAST UPDATE WfiSi " j D* 

l^O FOR K=2 TO N2+1 

200 GOSUF. 440 'FILE READ 

210 NO(K-n=cyi (R*(n 3 

220 N3-N3+N0(K-1) 

230 T*[K-1)=D* 

240 NEXT K 

2S0 PRINT 

2*0 SDSUB J!70 " PREPflRE TRIAL BALANCE 
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270 REM ********** PROaftAM TERMlNATinM PfjIWI *s*Jt«»**«»»;»«»»:««ii 

?S0 PRINT 

290 PRIMT 

3[>0 Pt^INT "PROCESSING COMPLETE" 

ZIO PRINT 

315 CLOSE 1 

320 STOP 

ZZO REM * iT )!«* t«!t ^ tx« ji XK ;l)i Ik*** « t »:t «*»*«(» It iil<»««*:l(tt«i|i It f«> Hit «]««»« Y 

340 REM SUBROUTINES FOLLOW 

3^0 REH 4i^!f4<4<**^*:*"tt^*4******1K***^*^**********1'******^***^^'>>''l< 

360 f?t:h ****«»!***»!***** FILE npEN fiHD definition routime ***** 

3TO OPEN "R", 1,F* 

3B0 FIELD 1, 19 AS D* 

SVO FOR i= 1 ru Ml 

4O0 FIELD I , fif+d-l) t7 AS X*,3 fflS Fit 1 1 ) , 1 AS S* < 1 ) , 4 «S V*(I) 

410 NEXT I 

420 FIELD 1,124 ftS >*,3 AS 1.*,2 AS N« 

4.>0 RETURN 

440 REM »**<******«»♦**»«**« FILE K£AT) - RECORD#k' «****»*.*** 

450 GET 1,K 

460 RETURN 

470 REM ^l«***«««**«««*!t*l^■««i*■t TRIAL BSLANCF *♦*»*******#***«* 

4B0 PRINT "ENTER THE AS OF DATE FOR THE REPORT"; 

490 IMPUT D3* 

300 PRINT 

510 PRINT "POSITION PAPER NDU - F-RGSS ENTER WHEN READY"; 

520 INPUT fit 

530 LPRINT" " 

340 LPRINT TAB<3C');F* 

550 LPRINT TflSfSO) ;"TRIfiL BALANCE" 

5(bO LPRINT TABOO) ;rj3Si 

370 LPRINT" ■' 

530 LPRINT" " 

590 LPRIfifT TA&i4"3) !"rf"sTAB^33>; "C" 

600 LPRINT" ■' 

fcJO FOR I^X+1 TO M3 

620 K=I 

iSO EOSUB 440 'FILE READ 

i40 IF K>Nv; THEN ISET D»=D2* 

650 FOR J=l TO Nl 

6i.O K1=CV1 (R*(.ll > 

670 IF R1=0 THEN 720 

iSO V(0)^CV9<V* (J) J 

6^0 IF S*fJ) = "C" THEN c;0=CO+V(0) 

700 IF S*(Ji="D" THEN DO-DCn-V(0> 

710 NEXT J 

720 N-CVl (N*> 

730 IF N<=0 THEN 770 

740 D2»=Dt 

7S0 K-W 

760 BOTD 630 

770 flO=DO-CO 

730 LPRINT T«B(51 ; r ;TBl>(t05 ; "- ";Dt5 

790 T=0 

SOO IF AO<=0 THEN r~10 

810 A1=AFS(A01 

820 IF AO<C> THEN Ct=t:i+Al 

B30 IF A0>0 THEN D1=D1+A1 

B40 LPRINT TBB(40+T);A1 

030 COsO 

8tO DO^O 

a70 NEXT I 

S30 LPRINT TftPOSJi" "jTAEC4B);" " 

B90 LPRINT rAB<3<V>)5D(iTftP<4';>;Cl 

900 LPRINT T(^B<3E3) j " = ======^=^=^"qTAe^43> ; "=========" 

910 RETUPiN 



HUN 'ETRIAL" 

ENTER THE NflWE OE THE ACCOUNtS FILE? MV-BOOKS 

HATE OF FILES LAST UPDATE UAE JANUAftY 30 1981 

ENTER THE flS OF IlflTE FDR THE REPORT? JMIUfifcf 31 1981 

POSITiaN FPIf ER NOW - PRESS RETURN WHEN READY? 



Mr-BOQ»«S 
TR3AL BALANCE 
JftNUART 31 1?B1 



10 


- 


CAEiH 


1950 




11 


- 


SUPPLIES 


50 




12 


- 


EQUIRMENT 


1000 




13 


« 


ACCQUNra PAYABLE 




400 


14 


" 


NOTES PAYftFLE 







15 


- 


CAPITAL 




2000 


14 


" 


DRAW] NO 


200 




17 


- 


FEE INCOME 




1250 


18 


- 


RENT 


2SD 




1? 


- 


SUPPLIES EXPENSE 


100 




20 




TELEPHONE EXPENSE 


150 






3450 


3650 



PROCESSING CDhPLETE 



BREAK IN 290 
DK 
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Income Statement 

Program Name: BINCOME 

This prc^ram produces an income starcmcrit of profit or loss for 
the accouiuing period. It queries income and expense accounts only. 
The results of this report are used as the basis for a journal entry that 
adjusts capital accounts for the revenue received, prior to the execution 
of program BSHEET. 

Files Affected: None 



E CLeAR90(5 

JO REM BflVED AT l5IN£:nnE 

20 REM PRPDUCEB IWCOME STATEMENT 

34 REK *$itim****t *********************>**** ********'***■»"*»******* 

35 CLS 
no Nl-=15 

60 DIM R*(MtJ , V* (Nl>, Si (Wl> 

70 Din R (Nl. J i^TNl ) 

SO DIM NCi{S>,T*<K> 

70 PRINT "ENTER THE NSME tJF THE rtC:COUNTS FILE") 

30Ci INPUT Fa 

HO GOBUB 360 ' QPEM FILES AND DEFINS 

12CI K=l 

13(1 eOSiUE 440 'FILE REflD 

140 XiiCVr (R«(l ) 3 

13Ci N2=CVI(RS(2) J 

liO N3=X 

170 PRINT 

180 PRINT "UfiTE DF FILLS LAST UPDATE WAS " ; D* 

190 FOR K"2 TCI N2*I 

EOO SDSUE 440 'FJLF R£:AD 

210 M0(K-1 )=CWI (R* (3 »> 

220 N3-N3+NC;itk'-l) 

230 Tft(K-l)=D* 

240 NEXT K 

ZSC' pr:int 

2-ha StlUUB 4'/0 ■ PERFORM PROCESSINCS 

270 REM **«*#****** Pti;OGRflM TERMINATION POINT ***************** 

280 PRINT 

270 PRINT 

3oa PRINT "PROCE.SSlNe COMPLETE" 

310 PRINT 

320 STOP 

3S0 Ren * tut**** in****** fr* ****** C************:**))!!**** ***«»««**««>'* 

340 REM SUBRnUT ! NER FOLLOW 

750 FIEK ****** ***t***t*******ili****>t**)i4:f*iti**i:**>«*:****4:*it***«*** 

3i0 REM ********** FILE DFEN AND DEFIWITIDN ROUTINE ********** 

370 OPEN "R", l.F-t 

3BO FIELD 1,1 'i' flB fjl 

390 FOR I-^ 1 TO Nl 

400 FIELD 1, 19-1 (I-n *7 AG X«.2 AG R« ( I ) . 1 OS SS<Il,f AS V* ( I ) 

410 NFXT 1 

420 FIELD 1,124 AS !!« , 2 AS L*,2 ftS IM* 

430 RETURN 
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4^10 REM ****************** FILtr READ - REC0nt5*t: «***t***i***t* 

430 RET 1,k 

44 O RETURN 

470 REM ***»****«*«****«*««««*** INCOME STATEMENT *t**jH-+*tt* 

400 PRINT "ENTER THt: REPORT PERID1> "; 

49<J INPUT D4» 

500 PRINT 

510 PRINT "POSITION PAPER NOW - PRESS ENTER WHEN HEHDY"; 

S20 INPUT A* 

f,30 I.PRIWT" " 

340 LPKtrNT TAe(30)iF« 

SSO L.PftlWT TAB < 30 ); "INCOME' STATRMENT" 

fiiO L PRINT TAB<30> ;D4* 

570 LPRINI" '■ 

Sa<> LPRINT" " 

SiJO N7=N0il>+NO(3>+N:i(T> 

6 00 FOR J =4 TD a 

61il I.PRINT TftBfS) (T»(J) 

A20 K1 = X+HN7 

640 FDR 1=K1 TD O+WCK.IJ-l 
650 K^ I 

aao (30SUB 440 'file read 

670 IF K>N? THEN I. SET DS!iD2« 

iSO FOR Jl = l TD Nil 

*90 Ri=CWI(R*(Lin > 

700 I(" R1"0 THEN 75C> 

710 VC0)=CVS<V*(J1) ) 

720 IF !;»(J1>'--"D" THEN A0=AO-W(O) 

730 VF S*(Jl>="C" [HEW AOsftO+VtO) 

74C NEXT .11 

730 N=CVI(N«i 

74« IF N^-0 THEN 300 

770 C2*=D5. 

7BO K=N 

T'JO BOTD 660 

aOO LPR.INT TH8ao>;Is"- " f D»; TftB (401 j 

BIO IF J-3 THEN LPRINT ACi*(-i) 

820 IF JOS THEM LKRINT AO 

B30 Al=Al+ftO 

840 flO=0 

650 NE>iT I 

860 U'RINT TAecJB);" " 

870 LPRINT TAB(5)V''rOTAL " ; T* ! J J ; ; TAEKSOj ; 

aso ^^ J=ii then ufrint ai*i-i> 

390 IF .)<>;; THEN LPPINT Al 

9» LPRINT" ■' 

?10 h2=A2+AI 

920 fil=0 

f30 NEXT J 

940 I.PfJIMT TAFl<4a^;'■ " 

950 LPRINT TAB!S);"NET INCOME (LOSS) "; TAB (50) : 

960 IF A2JO THEN LPRINT fi2: 

'J70 IF A2<0 THEN LPRINT "("sA2s">" 

980 1. PRINT TAP (4B J ;'■=============-==■■ 

9fO RE TLIRN 

RUN "BrNCOME" 

ENTER THE WAME OF THE (ACCOUNTS FILE? MY-BOOKS 

DATE OF FILES LAST UPDATE UAS JANUARY 30 1981 

ENTER THE REPORT PERIGB 7 JANUARY 19S1 

POSITION PAI^ER NOW - PRESS RETURN WHEN READY? 



24 BASIC Computer Programs for Business 



«lf-BOOKS 

INCOME STftTEHENT 

JANUARY IVei 



INCOME 

17 - FEE IHDDME 1250 



TOTAL 


INCOME 






EXPENSES 










la ' 


- RENT 




250 




19 - 


■ SUPPLIES 


EXPENSE 


100 




20 ■ 


■ TELEPHONE 


EXPENSE 


too 



1350 



TOTAL EXPENSES .^50 

NET INCOME (LOSS! 800 



PROCESSING COMPLETE 



BPEAK IN 320 
OK 



Balance Sheet 

Program Name: BSHEET 

This program produces a balance sheet ar the end of each account- 
ing period. A journal cnrrj- thai updates capital accounts for nc: profit 
or loss is required to insure proper balancing of assets, liabilities, and 
capital accounts. 

Files Affected: None 

5 CLEfiR 900 

10 REM SAiJED AT BSHEET 

20 REM PRODUCES BALftNCE SHEFT 

30 REH ******^ $******■****■ if tt*'^'^**■l^*** if**** ****^**iHf*****i)i\t it tt* 

33 CLS 
40 Ni«lS 

so N:!-r> 

60 DIM fiSfril) ,V«<Nn ,SJi(NI > 

70 DIH R<hH) ,V(N1> 

50 OIM Tti^l,Mo(5J 

90 PRINT "ENTER THE NWE CF THE ACCOLiNTS FILE"; 

lOO INPUT F« 

HO SOSIJB 5S0 =OPEhJ FILES *^N0 DEFINE 

lUO K=i 

130 eOSUB 430 "FILE REAU 

V40 X-^CW! (ftji< 1) ) 

ISO M2=CUT (R«(2)> 
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J60 tJZ-'t 

170 PRINT 

ISO PRINT "DfiTE DF FILES LftSV UPDATE WAa " ! D* 

190 FDR K=3 TfJ N:J+1 

200 GOSUB 430 'FILE REflD 

210 NO CK-D-Cyl (RtCl) > 

2;a n:;^wi;4-wo(k-i) 

230 T*tK-l)=D* 

?40 NEXT K 

250 PR3MT 

260 GDEiUB 4^0 'PREPARE Bfll_flMCE SHEET 

270 PRIMT 

260 PRINT 

290 PRINT "PR0CLS5ING COMPLETE" 

3C>C> PRINT 

310 STOP 

S20 REM *iit*ii1itit*ttiHi!lttiHt*t***it*tifi^*t ******** ttttt************ 

33IJ REM SUBROUTINES FOLLOW 

340 Kf:» tiH*ltli,**IHt**liitxt**xst* ********)! If**i***t#**t***)i*t*tt*1tli 

3S0 RE11 tH********* FILE OPEN AND DEFIMITICiN ROUTINE ********* 

3.60 OPEN "R", 1,F* 

370 FIELD 1, 19 ftS B* 

3ao FOR 1= 1 TD Ml 

390 FIELD 1.1V+(I-1)*7 AS I«,2 AS R»(I),1 flS S» ( I > , 4 fiS V« ( I ) 

400 NE)!T I 

410 FIELD 1,124 PiS }it,2 AS L*.2 flS M* 

420 RETURN 

*30 REM **t**tif*tt**t*ii*t*t** FILE REAR - REC;ORD*K ********** 

440 SET 1,K 

4SO RETURN 

4^0 fiBM **************** BALANCE SHEET ********************** 

470 PRINT "ENTER THE REPORT DhTFC " ; 

4Bfi INPUT 04* 

490 PRINT 

aoo PftlNI "POSITION PAPER UIM - PRESS ENTER WHEN RP-ftUV"; 

310 IMPUT At. 

520 LPRINI" " 

330 LPRINT TAB<30);F« 

540 LPRINT TAB(30) ;"i5ALftNCE SHEET" 

S50 LPRINT TP(B<30)jD4S 

S60 1. PRINT- ■■ 

S70 LPRINT" ■■ 

5 BO T-SO 

590 FOR J"rl rO S 

fcOO IF Ji"! THEN LPRINT T ftB (30) ; T» ( 1 1 

610 IF ^02 THEN 630 

ft20 Tf=40 

630 LPRINT rflB<2S) ; "Llf^BILlTIES AND CAPITAL" 

640 fi^nO 

i30 LPRINT" " 

660 LPRINT TAB(S! iT*(J> 

t,70 KI=i<fl+W7 

6B0 M7=M7 4N0(.T> 

i>90 FOR I=K1 TD K1+N0(J5-1 

700 K= I 

710 fcoeuE 130 

720 IF V.>HZ THEM LSEI D*=iD.3« 

730 FDR JJ-1 W Ni 

740 R1=CV1 <R*(J1) ) 

7S0 IF R1-0 THEN 800 

760 V(01"Cva t^?»iJl> ) 

770 IF S»1lI1)="C" hHtN B0-A0-V<O> 
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730 !F H*(.]1)="D' THEN Ai:>=flO<-u (O) 

790 Me:<T Jl 

800 N=CVI(Nt) 

BIO IF M<=0 THEN SSO 

B30 K=iN 

S40 BQTD 710 

B50 IF JM THEN AO = Afi * ( - 1 > 

S60 LPRINT TABIIOJ;!;"- " ; Dt: TftiEi (Ti 5 AO 

B70 fil"fll+flO 

eao AO=(:: 

B70 NEKT I 

9O0 LPRtNT TfiB(T-2l5" " 

■JIO LPRlMT Tflla(S) i "TOTAL " ^ T* M) ; ; TftD (?50) j At 

930 IF J = l THEN LPRINT TAB (4B1 ; ■■==============^=" 

950 LPRINT' ■■ 

940 A2=A2+B1 

950 A 1=0 

960 NEXT J 

970 LPHINT TMBCJS);" ■ — " 

9Q0 LPRINT TflP(3> ;"TOTftL LISDILITIE3 AND CAPITAL" ; TftB (50) ; S2 

990 LPRINT TfiB (43) ; '■-=-==«"»:===-==="" 
1000 RETURN 



RUN •BPDST" 

ENTER THE FILE NAME OF THE ACCOUNTS FILE? MY-BOOKB 

DATE OF LrtST FILE UPDrtTE UflSJ JftNUARV 30 19S1 

WDl>LD rOU LIKE AN /(CCDUNTS LIST (V Off N>7 N 

ENTER JOURNftL TRANSACTIONS IN THE FOLLOWrNG FORM! 

JOURWI^L NUMBER. OR C CF«]R DLBIT OR CREDIT ), ACCOUNT NBRtAMOUNT 

I.E.r lU.C.lOTi?'?.?? 

TO fOST JOURMAL ENTRT 111 (tS A 6EBIT OF 17?i99 flHrtlNST flCCDUMr 10 

A OiOfOfO ENTRY MILL TERMIH/ITE THIS PROORAM 

ENTER YOUft JOURNAL TRftWSACTIONS NOW 

t lliDiTTeoO 

? ll,C-15.3U0 

? O.OfOfO 

ENTER TODftVS DATE? JftNUARY 31 1981 

PROCESSING COMPLETE 

WtEAtt IN A20 

OK 



RUN 'BSHEEf 

ENTER THE NAME OF THE ACCOUNTS FILEr MY-BOOKS 

DATE OF FILES LAST UPDATE MAS JANUARY 31 l?8l 

ENTER THE REPORT BAIL T JANUARY 31 1981 

POSITION PAPER HQU - PRESS RETURN WHEN READTY 
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10 - Ci4SH 

11 - SUPPLIEra 
i2 - EQUIPMENT 



TOTAL ASSETS 



MY-BOOKS 
BALANCE SHEET 
JftUU^riV 31 19S1 



1*50 

So 
lODO 



3000 



LIABILITIES AND CftPITrtL 



LIABILITIES 

13 - ACCOUNTS PAYABLE 
l'^ - NOTES f-AYAPLE 

TOTAL LIABILITI£B 



400 
O 



400 



CAPITAL 

15 - CAPITAL 
li ■ DRAUING 

TOTAL CAPITAL 



2SO0 
-200 



TOTAL LIABILITIES AND CAPITAL 



PROCESSING COMPLETE 



BREAK IN 310 
OK 
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Closing Accounts 

Program Name.- BCLOSE 

This program closes accoimrs at the end of the accounting period 
and provides a "post closing tiial balance." [t does not provide closing 
entries for the adjustment of accounts. It totals each asset, liability, and 
capita] account and enters a journal reference entry of 1 that contains 
the balance oC the account at the beginning of the next accounting 
period. Income andexpen.se accounts are totaled, and ajournal reference 
1 entry is provided that has a transaction type of '"*". fhesc entries 
are presented in the record for later use in BCOMP for the comparison 
of different accounting periods. The "*" entries are ignored for normal 
bookkeeping operations but continue to be maintained throughout the 
life of the accounts file. 

Files Affected: Account file 

S CLEflR 900 

10 REn SAVED AT BCLOSE 

20 RR'M CLOSES HDWTHLY ACCOUNTS 

30 REM ♦***+******«****«*«»****!«**» **************************** 

33 CLE 

50 NS^S 

60 CIM P*(NJ! ,W«(N1),S*(N1> 

70 DIM RiNl>,V(Nl) 
DO Dili T*<5) ,N0(5) 
10 PRItiiT "ENt^R THE NAME OF THE ^^CCQUNITS FILE"; 

too Input f« 

110 GOaUB 4lO 'OPEN FILES ftM» DEFINE 

130 K=l 

130 GOSUB 520 'FILE REPiD 

140 X"CVI(R*(n> 

150 N2>=CVt (R«(3) ) 

160 N3=X 

170 PRINT 

ISO PRINT "DftTH DF FILES LflBT UPDATE MIAS " : D* 

190 t-OR K-2 TO N2+] 

200 BDSUB S20 "FILE. READ 

210 NO(K-iJ =CUI (Ht ( 1 > J 

250 N3=w:?+N0tK-1.) 

230 T*(K-il*D* 

240 NEXT K 

2SQ PRINT 

260 iSOSUB S50 'CLOSE OUT 

270 PRINT 

2S0 K=l 

2<f0 fiOSUB S20 'READ FILE 

300 Lset Rji(S;=MKlJi(N3> 

310 LSET I>»"D3« 

320 I30SUD 't-9l-> 'FI1_E WRITE 

330 REM ttttt*** F-RDGRAM TERMINATION POINT *** t******:******* 

340 PRINT 

350 PRINT "PRDCEHSINS COMPLETE" 

3iO PRINT 

370 STOP 
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3S0 REM ***t**!»:)t****.ll*Slt***t**t»*t***tlt-IHIH)**»t*'ift.*¥*****:%*»*. 

390 Rf;M SIJBROU TIMES FOLLOW 

400 REM til*'ll*t1l**t****t*tiixtif/i*f4itt**lt**t*iftttil:ittiitttiit^»:*itt* 

450 REM t*«ttt***K** FILE OPEN AND DEFINITION ROUTINE ****** 

42C> OPEN "R", 1,F* 

*M FIEUn 1,1'' PB 5* 

440 FOR 1= 1 TD Ni 

450 FIELD i,i<j+n-ii*7 fis x*,2 A?? R* 1 1 > , 1 AS s*(ij,4 AS y*a> 

46'> NEXT I 

470 FITLD 1.124 AB X*,:; AS L*,2 AS N* 

460 RETLIRM 

490 ftert »**«*»«****«»** FiLfc' tORlte " RECt)RH*ti tin********* 

SCO FLT I,K 

510 RETURN 

320 BUM tt/tftimtf******** i-ILE READ - RECORD*K * ttJt* ***** *!( 

S30 GKT 1.1 

340 RETJRM 

S^iO REM' +************* CI.DSE D11T NDNTHLY FILES *********** 

560 f^RINT "ENTER TODflY'S DATE" 

SyO INPUT 03* 

5B0 PRIMT 

590 PRINT "POSnlClN PAPER M[M - PRESS ENTER WHEN READY"'; 

600 IWPLIT A* 

e,iO LPRINT" " 

620 LPRINT TABt30>;FS 

i30 LPRINT TAB(23> ( "POST CLOSINE TRIAL BALANCE" 

640 LPRINT TABtSOJ ;D3* 

6S0 LPRINT" " 

660 LPRINT'- '■ 

670 LPRINT TAeM3);"D"sTFlB(53) ;"E" 

6aO I. PRINT" ■' 

h'iO N7sN0(l>+N0(2>+N0<3>+)H-l 

700 FOR I-X + l TO N.3 

710 K=I 

720 GOSUB 520 '^"ILE READ 

730 IF K>N3 THEN LSET B«=D2« 

740 FOR J=l TD Nl 

750 Rl=CVI tfta (J) ) 

760 IF R1.^0 THEN OlO 

770 y(0)=i:;vs(v*(j) 1 

7eo IF i>*lJ) = "i:" THEN COsCCi+VCO) 

790 IF S«(J)-."D" THEN IKj=DO+V<0) 

800 NEXT J 

BIO M=COHN*J 

820 IF N<=0 THEN StO 

830 D2«=D* 

840 K=N 

850 QOTO 720 

960 AO="DO-C0 

570 T=ii5 

3S0 IF A0<=0 THEN T=10 

H90 A1-^AB9<A0J 

900 ir A0<0 THEN Cl'=Cl+At 

•?I0 IF AOi-0 THEM DJ=ni+Al 

■f20 IF KN7 THEN BOSUB lOlO 'KESEI RECdRDS 

•JSO IF IH>I7 THEN BOSUB 1 ISO =HEADINBS AND E/I SUMMARY 

910 IF l>m THFM BOblJB i:;0O -Eilp/INC; SUMMARY 

'95CI LPRINT TAB(3»;I:TABfli:i>i "- "jD*; 

960 LPRINT THB(40+T)!Ol 

970 !;o=o 

9B0 D0=^O 
■S^O NEXT I 
lOOO RETIJRW 
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1010 I^ITM *«««ai*«*»****«**H*t5IL» REStl RECOftDt; «****»***»»;**** 

I0?(l I. SET Sfi i >^"n" 

lOZ/'j TF flC><(; FHEW L.EiET S*(J> = "C" 

i 040 LSET Ri < 1 ) =Mt< I * U ) 

1030 LSET V*<l>=rMK3*<Al> 

1060 FOR 11=2 TC N) 

lo7i> 1 SET R*cIl)=MKE*(0> 

loeo LS£T V«< In"MKfj*<0; 

1 090 LHET as I r 1 ) =f1KS» ( o > 

1100 NE)(T II 

lino LSET NS^MKIlKD) 

11?0 1 SET 1.9;^MX:I» (O) 

113H> BOSUB A'JO FILS. WRITE 

IJ40 F1E"TI]RM 

1130 REM * + **»*«********* PRINT HEADING *t» **t*********;(rtt ** 

llil.i LPRIWT" ■' 

1170 LPRINT TfiB(23) J "EXPEMae ANU IMCDHE SJMHURY 

li80 LPRIMT TflB(IO))"LftST PERIOD" 

1190 U-n^INI " " 

1200 RRM *!»»:t»*tl*l»«»* RESET EKPENSE (=|WD INCilME: RECORDS «»«**!' 

1210 FOR 1 1^1 TD Ml 

1320 IF S«<IJ)="*" THEN RDTD -liJSO 

1230 LSET S*ai> = "*" 

1240 LSET R*[ll>==MKli*tl> 

I251.I 1_SET V*( in^MKSsHHOl 

ViiiO IF V1=N) THFN I.Z-20 

1270 FQft ISi^Il + l TQ Ml 

12B0 LSET S»( I2)=" " 

13*?C1 LSET ftJ.(I2»=MKl«!0> 

tSOO LSET V*(I2?=MKS»(U> 

1310 NEXT 12 

1320 LSET N4=MK:1*C0) 

1330 LSET L*=Mk;1*(0) 

1340 GOTO 1360 

1350 NEXT II 

1340 GOSIJB ^<?0 'FVLE WRITE 

1370 fiiE^TLIRW 



RUN 'DCLOBE- 

EMT£f! THE WME QF THE ACCOUNT? F1LE7 My-BOOKS 

D«TE OF FILES Ll^lST LPPCiflTE WAS JrtMUrtRT 31 17ill 

ENTER rooArg date 

7 FESRUftfty 1 l^Sl 

PCtSITION PAPER NOW - PRESS RETURM UHEN REiSiDY? 



rtY-BODKS 
POST CLOSING TfiTAL 9ALANCE 
rCBRUAKf 1 19Q1 



10 - CASH 1?5« 

11 - SUPPLIES SO 

12 - EaUIPMENT lOM 
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13 - ACCOUNTS P^rABLE 
iA - NOTES PAYABLE 

15 - [IftflTflL 

14 - DR)!|WING 



EXPENSE AND INCOME 
LAST PERIOO 



17 - FEE INCOME 

IS - RENT 

19 - SUPPLIES EXPENSE 

20 - TELEPHONE EXPENSE 



PR0CE8SIND COMPLETE 





too 









2B0O 


200 




)ME 3 


UMMARY 




izso 


2S0 




100 




100 





BREAK IN 370 
OK 



Account File Print 

Program Name: BFLIST 

This program provides a list of ilic current file's contents. It \s an 
unfoimatted list that can be used to diagnose unexpected data entry 
difficulties occurring during the system's operation, "X" traflsaction 
codes indicate that the entry area does not contain current dati. 

Files Affected: None 

3 CLEAR i^OO 

10 REM SAWRD (\1 BFLIST 

20 REM LISTS ACCOUNT riLE 

30 REM ««********«»t«*»»*****«*******t***t*t**tit*««*j,),,,(m^^,^ 

35 CLS 

40 NlalS 

50 NS=S 

*0 DIM Ri(Nl) ,V*CN1 > , S*<W1) 

70 DIM R(N11 , V(tvll) 

SO DIM Ti<5) ,NO(S> 

90 PRINT "ENTER THE NAME OF THE ACCOUNTS FILF": 

lOO INPUT F* 

UO eOSUE 490 'OPEN t=ILES AND DEFINE 

120 K=^l 

130 eOSUB 37t> 'FILE REftD 

140 t-CVl (R«( 1> ) 

ISO N2=CVI <R»C2)) 

160 HZ^X 

170 PRINT 

ISO PRINT "DATE OF FILFS LftST UPDATE WAS ■',[)* 

190 FDR K-eS TO N2+I 

200 HOBUe S70 -FILt; READ 

210 N0(K-1 )=Cyi fR*(ll) 

320 N:r=N3+N0(K-l > 

230 T*(K-l>sD* 

240 NEltT K 
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230 PRINT 

2AO FOR J- 1 TO ^f3 

2aO GOSUB S7C> 'FILE READ 

2^0 LPRIMT 

300 LPRIMT "ltt*t»*-*tt**t***1ltt RECORD"iK; "ttJ*********^****" 

310 LPRINT D'if 

320 FOR 1 = 1 TO HI 

310 v(n=cvsw*(j> > 

350 LPfilINT R(n ;3t(I) ; Vll) ; 

3iO NEXT I 

370 L"Cyi <L«> 

Seo M=CVI CN*) 

390 LPRINT l..;R 

400 IF N'J^O THEN 430 

410 K=IM 

420 SOTO 7.e<' 

4T0 NEXT J 

44Q REM **♦.** + ***** PROBRftM TERMIMrtTIOH POIMT ♦****** + ******* 

450 PRINT 

460 PRINT " PROCESS I Ntj COMPLSTE" 

470 PRINT 

480 STOP 

4<70 REM **»****#** FILE OPEtil AMD DEFINITION ROUTINE JtT****** 

5O0 OPEN "R", 1 .Ft 

310 FIELD \,lf fiS D« 

S20 FDR 1= 1 TO Nl 

530 FIELD 1,19+(I-1)*7 Pifi 3<t,2 AS R*<I),1 ftS St 1 1 J . 4 ftS V»(I) 

S40 WEJCT r 

S50 FIELD 1,124 flS K*,2 AS I.*, 2 AS N« 

560 RETURW 

E70 REM i»*t*««i|[t**J(t«**** FILE READ - RE"CORD*K ***»****»**»** 

SBO GET l,t' 

590 RETURN 



RUN 'BFLISr' 

EOTER THE NAME OF THE ACCOUNTS KILE? HV- BOOKS 

DrtTE OF FILES LAt;T UPUAIL UAS FEBRUfiUf 1 l.-^Sl 

*tit********»*V***llf«* RECORD 1 «):«*i)[««:1[t«:ti«)|ci):*«*^**1[»il: 

FEBRUftRV 1 IVai V X O 5X0 20 XO IKO 2X0 2X0 iXO 3X0 OX 

O 0X0 0X0 0X0 0X0 0X0 0X0 O 

******************** RECORn 2 *i|f«******i1r*******fi***** 

fiSSETE '3X0 OKO 0>!() 0X0 OXO OKO 0X0 0X(1 OX 

O 0X0 0X0 0X0 0X0 0X0 OXO 

*»*******«*****im!**!t RECOfiCi 3 ****i»*»*******»i|(*i»^l**i»t 

LIABILITIES 'JXO 0X0 0X0 0X0 0S(0 0X0 0X0 0X0 Olf 

0X0 0X0 0X0 OXO 0X0 0X0 o o 

«******!<:***********>( RECOfiD 4 :l:t*!li!|cxx*****^*****it!|t*** 

CftpiT<\L axo 0X0 0X0 0X0 0X0 0x0 oxu 0x0 ox 

0X0 0X0 0X0 0X0 0X0 0X0 O 

iti:^******:t******i|:**** RECORD S *«*****»[«***iK*****it:DI*** 

INCOME IXO 0X0 0X0 0X0 0X0 0X0 0X0 0X0 OX 

0X0 0X0 0X0 0X0 0X0 0>!0 
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itifif****til-t*t***t^1l.*i RECORD 6 **t*»*****itlHH**llt***it*IHt 

E)(PENSES 3X0 0X0 6 X 6 tf X 0X0 OHO OHO CXO OX 

0X0 OXO 0X0 0X0 OXO 0X0 

tttimHHftftfifitt******** RECORD 7 *♦**++**** + *******+++** 

UNUSEU 0X0 0X0 os{o 0X0 o x o oxo oxo oxo ox 

0X0 OJtO 0X0 OXO 0X0 0X0 o o 

*t*.MIHt**t*l(:t**IHi(1t**t RECORD S 1i:ll.fl(*****^t*****X^***^* 

UNUSED OXO 0X0 0X0 0X0 0X0 0X0 0X0 0X0 OX 

OXO 0X0 0X0 0X0 0X0 0X0 o o 

:ll*««««lt«^4:!|i:r*X«4(!KH<:t* RECORD 9 it^m**Xt#!K****Jti1l*t>itfit*** 

INCBHE/EXPENSE SUM p J I D BOO 0X0 0X0 0X0 0X0 OXO 0X0 0X0 
0X0 0X0 0X0 0X0 0X0 0X0 OXO 

CflSH i D 1550 O '0 

00 00 00 00 00 00 000 

xr«:i)i()t»!#*t::ttit**t«!t:i|i!t<* RECORD 11 **«**ilili***«*t***«**:C*4i* 

SUFFLIES 1D50 00 00 00 00 00 

00 00 00 00 00 00 OOO 

tfi******t****i**.*M**t RECORD 12 *.tL**t.*lt***lt**]t*%IH***lt** 

EQUIPMENT 1 D 1000 O 00 00 00 00 00 

00 00 00 00 00 OOO 

!|if*i|ii|ii|i4i*«ti|i>|t^M:i|i*i**!«i|i RECORD 13 !f(Xtt:t:i|ct(lt4^ir)):!|i^it:)!ti*^*:t:^>c 

ACCOUNTS PAVrteUE 1 C 400 00 00 00 00 00 00 

00 00 00 00 00 000 

NDTEE PftYftBLE IDOO 00 00 00 00 00 00 <)0 

0,0 00 00 00 00 00 

^Jfi^.M^t^^t^^^^^TltMtt'^^ RECORD 15 K^^**]4cd(i*]4(Jt%**^^^^*i4(:*#^ 

CAPITAL 1 C 2(300 O 00 00 00 00 Oil 

00 00 00 00 OO 00 OOO 

DRAUIHG I D :;O0 O 00 00 00 00 00 

00 00 00 00 00 00 000 

FEE INCOME J *~1250 O 00 00 00 00 00 00 

O 00 00 00 00 00 000 

)li;tili«t(*!«*]|i!|:iiit*!t4r!|'i^ili*:li RECOdi 18 ■ti**if*t**iii,Ji,».^»***1iiti^ili*WK 

RENT 1 * 250 O OO 00 00 00 00 

00 00 00 OO 00 00 OOO 

tXllt*:!!!**!**^)'^^****!):!^^ RECORD 19 iH*1ltX**t.***ttliHHtM*t***^ 

SUPPLIES EXPENSE 1 * 100 O 00 00 00 00 00 00 00 

00 00 00 00 00 00 000 

rELEPHONE EXPENSE 1 * 100 O 00 00 00 00 00 OO 00 

00 00 OO 00 00 00 OOO 

PROCESSINB COMPLETE 

BREAK IN 430 
OK 
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Account Displaying and Correcting 

Program Name: BPRINT 

This program has four options useful to the bookkeeper: 

Option 1 produces a formatted list of attount numbets and associ- 
ated names. 

Option 2 produces a display of a specific account in the form of a 
"T account." Each journal entrj' is printed on the appropriate (debit or 
credit) side of the account with its journal reference number. 

Option 3 prints a list of all journal entries for the account in a re- 
port format (with headings). The individual entries can be changed 
selectively by the operator. Note that a reference number of will 
cause the entry to be deleted. If there are extension records for the ac- 
count, rhey will also be displayed and can be corrected. 

Option 4 allows the operator to chaJige the account name of 
specified accounts, 

FUes Affected: Account file 



S CLEAR 900 

10 REM SAVED AT PPE^INT 

20 REM UISPLAVSt ANI> CORRECTS RECORDS 

30 REM **** ****»****»»** + ** + ** + ** t*************'****'****!* *****♦+ 

3S CLS 

fl-0 M1-15 

SO DIM R»<tJ1 J , V»<Nl}sS*(Nl > •*=' 

bO DIM R(Nl > ,y INI 1 

7ij Dll-l T»<3},lMOE3) 

aO PRINT "ENTER THE FILE NAME OF THE ACCOUNTS FILE"; 

70 INPUT Fs 

lOO GUSUB 4fcO 'OPEN FILES f^ND REFINE 

no K=.i 

120 GOSUB S70 'FILE READ 

13CI X=CV1 tRt (1 ) > 

140 N2=CVI 1H*(2M 

150 PRINT 

lAO PRINT "DATE OF FILES LAST UPDATE WAS "sD* 

170 FDR K=^2 TO N2+1 

ISO GOSUB ?J7Ci 'FILE READ 

l'?0 Nlli(K~l)=t;vl (R*( 1 >) 

20O T«<K-1)=D« 

210 NEXT K 

320 PRINT 

230 REM *1i***t*******m***** CHOICE QF PROCESSING OPTIONS ***** 

241? PRIMT "THE FOLLOWINQ 0PTI0M3 ARE AVAILASLEl" 

2?><i PRINT 

260 REM »»*«»******* PROGRAM TERMINATION POINT *************** 

270 PRINT TAB(5>sl;" ACCOUNT NUMBER /DESCRIPTION LIST" 

ISO PRINT TAB(5>;2;" ACCOUNT DISPLAV" 

290 PRINT TflB(5>;3;". CORRECT ACCOUNT" 

300 PRINT T0B{5);4;" ENTER ACCOUNT DESCRIPTIONS" 

,310 PRINT 

320 PRINT "ENTER THE OPTION DESIRED"! 

330 IhJPUT 

340 IF 0^1. THEN BtJBUB feOO "ACCOUNT LIST 

350 IF 0^2 THEM QOSUB 790 -ACCOUNT DISPLAY 

3iO IF Q^Z THEN GOSUB 1000 'DISPLhV ACCOUNT 



370 IF 0=^4 THEN GOEUB 1370 'ENTER ACCOUNT DEEC 

3S0 PRIMT 

390 PRIMT 

40O PRINT "PROCESSING COMPLETE" 

410 PRINT 

420 STOP 

430 8'EM Hit ****t!H*»**tlt*)l*t**til*tJHtt1t*.if^*t*i^t ******* *****:****** 

441:. REM SUBROUTINES FOLLOW 

460 REH ♦*** + **«*** FILE OPEN ftND DEFINITION hTOUTIrtir *«*t*;«it** 

47'J OPEM -n" , 1,F* 

4SO FIELD 1,19 flS D* 

4*50 FOR 1= 1 TO Nl 

SOO FIELD ] ,!■?+< I-l) *7 A9 X*,2 A3 ft»(I),I flS S* a ) , 4 MS W«(I) 

510 NEXT J 

320 FIELD 1,L24 AS 1C*,2 ftS L* , 2 ftS W» 

530 RETURN 

?40 RF:ri *************** FILE WRITE - RECORDHK lit****** t »**«».* 

SSO PUT i,K 

560 Rf-JTURN 

S70 REI-i ******************* FILE READ - fJECORD#K *«***»***«#* 

satJ GET i.K: 

Si?0 RETURN 

fcOO REM ****************** ACCOUNT LIST AREA **************!« 

^lO PRINT 

4)20 PRINT TflD(4);"fiCC #" j Tfie t 1 3) ; " CEGCfilPTlCN" 

i>30 PRINT TftBl4);" ";TAB<12ri" " 

640 RRINI 

6bl> K--X 

660 GOSUB 570 'FILE READ 

6/0 PRINT TftBOj ;K;TflD(12) ;D* 

690 FOR I=J TO N2 

700 PRINT T«(n 

710 FDR J=l TO NO (I) 

720 GOSUb 370 'FILE READ 

730 PRIMT TftB<3) ;K; TAt^(t;•:^ ;D* 

740 K=K+ 1 

750 NEXT J 

760 PRINT 

770 NEXT I 

7S(> RETURN 

790 REM **«**»**«»**«***«***» ACCOUNT DISPLAY ** t * ***** * **** tJt 

aOO PRINT "EWTER THE ACCOUNT NUMBER TO BE DISPLflVKD" -, 

910 INPUT K 

020 PR J Ml 

S^O BDSUB 570 'FILG READ 

S40 PRINT TftB<30) ;Di 

350 RRTNr ■■ 1 ■> 

S60 PRINT TSB<10);"FteF";TABC23) j"AMT";TftB(331 ; " I " ; TftB (3SJ ; "REF" ; TAB (31 > ;"ftMT" 
a70 FGP 1=1 TO Ml 

aao R(n=cvi (R*ai ) 

S90 IF ROJ^O THEN 930 

900 U ( n "CVS t yiB ( T ) ) 

9iO IF S«(I)="D" THEN PRINT TAB ( 1.0 J ; R (T ) ; Tfi!5 <?0) ! V ( I > ; TAB ( S3> ! " I " 

920 IF a*<U = "C" THEN PRINT TAB <33> 4 " I " ; TAB ( 33 J ; R ( I ) ; TBR (40) ■ U< 7 ) 

930 [iteXT I 

940 N=CVI (Nt) 
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950 IF M<=Ci THEM 990 

970 GOSUB 3 TO 'READ FILE 

•?Hi;i GOTO B70 

9^0 RETURN 

3000 REM *ll**t1l*Kt**t***1l*i* CORRECT nCCDUMT i(**lt***:t».t»>t*1l**t 

1010 PRINT 'FNTER THE ACCDUMT NUMBER TO BE CORSECT6D"; 

1020 INPUT K 

103O GOSJB 570 'FILE REM) 

1O40 PRINT 

lOSO PRINT "ftCCOUWT NAME! " i O* 

lOliO PRINT 

1070 PRINT "ITEM^tTfiiBiOi "REF";Tfte(1i) i"DvC"t FABat); "AMT" 

lOaO PRINT " "iTAB (6) s" " ;TftB<ll 1 ; " "; TrtBI lt» ; " " 

109O f^OR 1 = 1 TO Ni 

IIUO Ra)=CVUR*(II ) 

lUO IF Rn>=0 THEN 1140 

1120 VtI)^CVS(V«( I) ) 

1130 PFtlhlT l;TABt5) ;R(1>;TAB( I i:*) !S«< U ;TrtBf 15) ;V(I> 

1140 NEXT 3 

H50 M=CV£ (IM*> 

1:160 »F M>0 THEN PRINT "*«** CONTINUED **«*" 

1J70 PRINT 

1.180 PRINT "DO rOU WISH ID CORRECT r>NV ENTRIES tY OR N>"; 

1190 INPUT AS 

1200 IF LEFT*!fl*,ll<>"¥" THEN 1320 

1210 PRINT "EfJTEft THE ITEM MUMBKR Ttt CORRECT"; 

1220 INPUT lO 

1230 PRINT "ENTER THE REFERENCE NUMBER, D OR C, fiND SMQUNT"; 

t240 INPUT R(10),S0*II0),V(10) 

1250 LSET R*( I0)^MkI*<RUO> ) 

t240 USET S«( lO) =E0* ( lOl 

1270 I.SET Uf (TO)=MKS*(V( (0) > 

1:380 PRINT "PiNV OTHER CaPRECTIONS (Y DR NJ",' 

1290 INPUT A* 

130O IF LEFTiNffi*, 1 )=-"¥" THEN 1210 

i;S10 GOSUB 540 "FILE kiRITE 

1320 IF N<-0 THEM I3<J0 

1330 K=N 

1.540 BDSUB S70 ' RGAD FILE 

13S0 GDTO 1060 

1360 RETURN 

1370 REM **^***.-t**t* EWTER ACCOUNT DE'fjCRIPTIDNS **»****««»*«« 

13 BO PRINT 

ISfO PRINT "ENTFR flClCnUWT NUMhER " ; 

1400 INPUT i: 

1410 HOSUB H7(J 'FII..E READ 

14:^0 PRINT "PlCCOUNT DESCRTPTIDN IS: "jD* 

1430 PRINT "ENTtiR NEW fit; COUNT N*1ME"; 

1440 INFiJT D?« 

1450 LSET D*-D2* 

14tO BOSUB B1i:i 'FILfc: WRITE 

1470 PRINT "«NV MORE ENTRIES tV OR Nl " ; 

14S0 INPUT A* 

1490 IF LEFT*;h*,1)»"V" then 13S0 

1500 RKTURN 
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RUN 'BPRINT" 

EHTER THE FILE HAME OF THE ACCOUNTS FILE? MV~BOOKS 

DATE OF FILES LrtST UPHATE WAS JfiNUARY 30 19B1 

THE FOLLOUINB OPTIONS ARE iSVAILftBLE: 

1 .....ftf;COIJNr NUNBEft/PFSCRIPTION LIST 

2 ACCOUNT DISPLAY 

3 ,, . . .CORWfiltT A(;l;oiJ«T 

4 .....EWItK ACCOUNT OESCRIfrroNS 

ENTER rm Qf'TION DEeififtH? 2 

ENTER THE ACCOUNT NUMBER TO BE PJSPLAYEO? 10 



R£F 


AMT 


I R£F 


AMI 


1 


2O0O 










I 3 


ISO 


S 


1250 










I 4, 


250 






I 7 


100 






I S 


iOO 






1 to 


HOO 



PftOCESSINO COMPLETE 



BREAK IN 120 
01^ 



RUN 'BPRINT' 

ENTEK THE FILE NAME OF THE ACCOUNTO FILET Mr- BOOKS 

MtE OF FILES LAST UPDATE HrtS FEBRUAFSY 1 19SJ 

THE FOLLOUINB OPTIONS ARE AVAILABLE; 

I ACCOUNT NUKBER/DESCHIF-TIDN LIST 

2 AtlCOUNT DISf't.fiY 

3 CORRECT ACCOUNT 

4 ...4. ENTER ACCOUNr DESCRIPTIONS 

IMTER THE OPTION DESIRED? 1 

Act # DESCRIPTION 

P IMCOME/eXPENSE SU«. 
ASSETS 

10 CASH 

II SUPPLIES 
12 EOUIFtlENT 

LIABILITIES 

Vi ACCOUNTS PAYABLE 

14 NOTES PAYABLE 



CAPITAL 
IS 

li 



r;AF'i TAL 

DRAl^INIi 
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INCOME 

17 FEE INC DUE 

EXPENSES 

JB RENT 

IV SUPPLIES EXPENSE 

ao TELEPHONE EXPENSE 



PROCESSING COMPLETE 



BREAK IN 420 
OK 



EN-i:-^ •^Nii FILE K^-.rK. OF THE ACCOUNTS FILET MY-BOOKS 
DATE OF FiLfvS LSST UPI1(;TE HAS FEBRUARY 1 19B1 
IHr nii.vLliilNli 0)- i idNS AftE A^fAlLABLEi 

1 . ftccoi'NT ^:'J.iifl[;R/i.E<;LniPTiON list 

z ACCOUNT .':ap. ^y 

J .... ,CDRfiE(- ■M!:Ol-.-il 

<t ENTER ACCJIINT TiESCRlPTIDNS 

ENTER THE OfTION BESIREDT 3 

ENTER THE ACCOUNT NUMBER TD BE DISPLflVED? 10 

CASH 

REF flMT I REF 

I 1950 I 



PROCESSING COMPLETE 



BREAK IN 430 
OK 
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Journal Print 

Program Name: BJOURNAL 

This program recreates the journal entrici that were entered in the 
accounts file. The entries are printed in a formatted way that facilitates 
comparison with the actual journal. 1 here are two options available to 
the user: 

Option 1 produces a report indicating the starting and ending 
journal reference numbers that have been entered. 

Option 2 produces the output of option 1 plus the journal refer- 
ence listing. 

Files Affected: None 

S CLEAR <fO0 

10 REM SflVEU Af BJOURNftL 

^0 RRK PRINTS JOURNAL ENTRIES 

30 Rl£hl i**iiiit*ifS(1i>fJt*t*'f******t***t***lt**'f **************** ****** 

40 Ml"! 5 

50 111=999999 

60 (12^0 

70 N5=5 

00 DIM ft*(Nl >, V*(N1) ,S*<Mi) 

90 DIM RCN1>,V(M1) 

lOO Dtd TS(ll>,NO(S) 

110 PRINT "ENTER THE FILE IWME DF THE ftCLOUMTS FILE"; 

120 INPUT F« 

130 fiDSIJB 510 'OPEN FILES «ND DEFINE 

140 H=i 

150 BOSUB S9lj '■FILfe RE«D 

140 >i=f;VI (R*ll) I 

170 N:''=CVI (ft* f2) > 

ISO N3=>r 

190 PRINT 

HOO PRINT "DATE DF FILES LfiST Uf^DATE WAS " ; D« 

210 FQR K=Z TID N2+1 

220 Gnsuft S90 "FILE READ 

230 NO(K-l)"CV;( <R1i!l ) ) 

240 N3=N3+l\tO<K-l) 

7Sa T*tK-l>=D* 

2i0 WE XT K 

270 PRIMT 

■ZBO REM t*************** CHOICre OF PROC:ifSSINB OPTIONS ******!* 

290 PRIMT "THE FOLLOWINB UPriONS ARE AVAILABLE! ' 

JOO PRINT 

310 PRINT TpiB<3)slt", STARTING AND ENDING (^EFEREWr;F NUMBERS" 

320 PItJNT TAB(3);2i" JUURNrtl. EMIRIEB IN REFERilNCE WUHBER ORDER" 

330 PRINT 

340 PftlNl "ENTER THE OPTION DESIRED"; 

350 INPUT O 

3iO PRINT 

370 PRINT 

iiBO IF D-l THEN GOSUB 620 'START AND END ftEF 

390 IF a<>2 THEt4 430 

4Ci(> GOBUB 630 'FIND AF^RAV SHE 

410 GnSIIB 700 'RFreRENCt GftDER 

't^O REM «******.«*****» PROeRSM TERNINflTIDN POIMT «***» ******»«* 

430 PRINT 

440 PRINT 



450 PRIMT "PROCESS I WG COMPLETE" 

i|60 PRINT 

47rt STOP 

4*?0 REM BLiBRDUTINES FOLLOW 

51& REM ***t*:fl|i*tt FILE OPEI>) f*ND OEFIMITION RPUTIME **«****«** 

520 QPEM "ft", 1 ,F* 

53* FIELD I, 19 AS D* 

a4(i FOR j= t Tn Ml 

55Ci FIELD 1,19+11-1)*"/ ftS X*.2 AS R* (I > , 1 AS B*tl>,4 AS V* (I) 

5*0 NEXT I 

570 FIELD 1,124 flS X«,2 ftS L*, 2 AS N* 

;3Q0 RETURN 

5'?(l REM *«#******«* p II e REHD - RE;t:ORD#K *:»**** t« ****** *«**»** 

AOO (SET 1 , K 

610 RETURN 

AZC" REM ***«*»***« FIN» STARTING BlilD EMDIME REFERENCES ******* 

i^3Cp FDR K»:X+1 TD N3 

i4CJ raosUB 590 'REflT> FILE 

A30 FOR 1=1 TO Ni 

660 Rl=CVl(R»n>J 

670 IF RlC-Jl THEN 70Cl 

iiBO IF RKMI THEN M1=R1 

690 IF R1;M2 then ME-Rl 

700 NEIIT I 

710 N=CiJI (N*) 

7^» TF NC-^-'i THEN 7S0 

7SO BET l,N 

740 GOTO 650 

750 NEXT K 

760 PRINT 'MOURNAL REFERENCES WERE ENTERED ";Mi ; "T0";M2j "INCLUSIVE. 

770 R1£TURM 

7BO REM *«**♦**«**»****»*** REFSrEnCE NUMHRiff OftTJER *itiH!*«t*if** 

790 REM t!ttt*H*i***ll***.**** CREATE REFERENCE NUMBER ("iRRAV **** 

aOO N1-=h2-Ml + 1 

BIO Na=Mt-l 

8Za DIM E(N4,NH1 

830 FDR K~% TO N3 

640 SOSUB S<?0 'READ FILE 

850 FDR 1=1 TD Nl 

Bf.0 Rt.=CVI (RS(I J > 

870 IF R1=0 THEN 940 

BBO J1=R1-NA 

BTO FOR J2iil TO MS 

900 IF E(J1,J21<>0 THEN 930 

■?20 BQTO 940 

930 NEXT J2 

7^0 NEXT I 

•JHO N'CWJ ^N*} 

fifO IF N<=0 THEN 770 

•?70 SET 1,N 

vDO Gtrro S50 

■J^O NEXT K 

1000 REM «**«**»««*«*****»*«** PRIWTJnB ,3f)IJRNflL xir*:«**^**!f-*.*ll 

1010 PRINT 

1020 PRIWT 

1030 PRINT TABOO) ; "JilLIRNftL REhERENrE L 151 IMS" 

1040 PRINT 
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io;to print 

1060 PRIMT "REK";TAE;1S) ; "ACCOUNT" } TAB (40) ! "DEBIT" ; TrtB (50) f "CF*EDn ■ 

lO^Ci PRIMT 

1050 FDR J) = 1 IP N4 

1090 PRINT Jl+N6i 

11(30 FOR JS"! TO M5 

mo IF F(J1,J2>='0 THEN i"iM 

1120 K=E(J1,J2> 

1130 MSUB 370 'READ FILF 

1140 IF K<~H^ THEN 1170 

1150 K=CVI(L*J 

llf.0 LEFT n*-DI* 

U70 FOR 1 = 1 lU Nl 

1180 Kl-EVI (R*n > ) 

119(3 IF R1=0 THEN F2ftO 

1200 IF RKJJ1+N6 THEN 12i0 

laiO (/CO)=CVS(W«( I)) 

1 220 T=0 

1230 IF S*n)="i:" THEN T = 10 

12^0 PRINT TAB( lO+T>;K!TftB*15-t-TJ! "- " ( D«*TAS MO+T> i y £0) 

12S0 GDTD 133(a 

1260 NEXT I 

1 zrO D?*-!)* 

12B0 K«CVI (N*) 

1290 GOTO 1130 

1300 IF E(J1,IJ<>0 THEN 1330 

1310 PRIMT "*«**« NOT RECOftliED *****" 

1320 BDin 1330 

1330 NEXT J 3 

1340 f-RINT 

1330 N[;XT Jl 

13fiO RETURN 

nun TJOURN^L* 

ENTER THE FILE: N<*ME DF THE ACCOUNTS FILE? MY-EOOKB 

DftTE OF FILES LAST UFDftTE U(43 JANUAKT 30 1981 

THE FDLLDUIHi; DPT I QMS ARE AVAILABLE; 

1 STARTING rtND EMUINe RCFEREKCE NUMBEPS 

a .....JOURNAL ENTRIES IN REFERENCE NUMBER DRDeR 

ENTER THE OPTION DESIRED? 2 

J(JUJiNAL REFERENCES tIERE ENTERED 2 TO 10 INCLUSIVE. 
JOURNAL REFERENCE LISTING 



REF 




ACCOUNT 




[JE6IT 


CREDIT 


2 


10 


- CASH 




2000 








IS - 


CAPITAL 




2000 


3 




10 - 


CASH 




ISO 




11 


- SUPPLIES 




150 




A 


12 


- EQUIPMENT 




1000 








13 - 


ACCOUNTS 


PAYAIiLE 


1000 


3 


10 


- CASH 




12S0 





17 - FEE INCOME 12E& 

42 BASIC Computer Programs for Business 



6 




10 - CASH 






la 


- RENT 


250 


7 




10 - CftSH 






30 


~ TELEPHONE EXPENSE 


100 


e 




10 - CASH 






13 


- ACCOUNTS PAVABLE 


400 


9 




11 - SUPPLIES 






\9 


- SUPPLIES EXPENSE 


100 


le 




10 ~ CftSH 






li 


- DftAUlMO 


200 



PRQCESSIHG COMPLETE 



EREflK IN 470 



Income and Expense Comparison 

Program Name: BCOMP 

This program produces a comparison of expenses (option E) or of 
income (option I) for several previous periods. The formatted output 
includes detailed data and totals for each period ajid totaJs and averages 
for each account and period. Note that the records with the transaction 
code "*" ire used as input to this program. The number of periods to 
be compared is specified in response to program prompting. 

Files Affected: None 

5 CLEAR 900 

lO REM SAILED AT BCOMP 

20 REM INCOME AMD EXPEMSE AMALVSIB 

30 REM it%*ll.*t***t%***t.im***%'»%itt^t**lt1titt*1Hft**il***»**%'tiHI.-lwt%*lf 

33 CL5 

40 IMl-15 

SO T<=i.O 

60 IM5-H 

70 DIM R«(Nl),V*(Nn ,nS(NI> 

80 Din htm 1 , y(Ni) 

90 DIM T« tS) ,N0(5> 

lOO PRINT "ENTER THE WAME DF THE flCCGUNTS FILE"! 

1 10 INPUT F« 

I20 GDSUB 370 ' OPEM FILES f^ND iJEFINE 

130 K=l 

140 CjOSUB 430 'FILE READ 

ISO X-CVI fRSl< 1 ) ) 

ItO N2=CVI in%C£fl 

170 N3=X 

laO PRINT 
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190 PRINT "DATE OF FILES LftST UPDATE WAS " ; D« 

200 FOR K-2 TO N2+1 

210 GOSUB 450 'FILE READ 

220 NI>(K-n=CVHR»(l) > 

230 W3=W3+NOns:-l> 

240 T« (K-1 5 =D« 

250 NFXT K 

260 PRINT 

270 GDSUB ABC ' PPRFORM SNfii.VSIS 

SeO REM il:t*t***.***if»^*ilitf**A*iftit.**it***f.t**tif**t*^tt*'****^t*'*X1lt*t 

a^O PRINT 

3O0 PRINT 

3JO PRINT "PROCESSING COMPLETE" 

320 PRINT 

330 STOP 

7^S0 REM SUBROUTINES FOL.LGU 

370 REM **«******««*» FILE OPEN AND DEFINITION FiOUTINE ******* 

3B0 OPEN "R", 1 ,F« 

390 FIELD 1, !<; AS D* 

400 FOR I« 1 TO Ml 

410 FIELD l,19+(I-t>t7 AS Jt*, S rtE3 R* 1 1 ) , I AB S*a),4 flS V» i I ) 

420 M£XT 1 

430 FIELD 1^124 ftS >:*,2 flS L*,2 AS N* 

440 RETURN 

450 RtTh ******************** FILE READ - PECORDSK ***Ji*l:iH * «*« 

461.1 GET \,K 

470 RETURN 

4S30 REM «************INC[JME AND EXPEMSE ANfiLYSIB ************** 

490 PRINT "HOW rtflNY ACCOUNT! NB PERIODS SHALL I INCLSJOE"i 

SOO INPUT Nf 

510 PRINT "DO VGU WISH TD COMPARE INCOME OR EXPEMSES '.1 OR E) "; 

52C> INPUT A* 

S30 J=4 

540 IF A*="E" THEN J=5 

550 DIM A2(N9+1> 

560 PRIMT 

570 PRINT "POSITION PftPER NOW - PRESS ENTER WHEN READV"; 

S80 INPUT A* 

S-fO LPRTNT" " 

too LPP;INT TABfSOJsF* 

610 LPRINT THBCJSJ ; "COMPfiRISON OF "!T*CJ) 

t20 LPRINT TAB<3Ci)iD4* 

b30 LPRINT" ■• 

t40 FOR 11^1 TO N9 

450 LPRINT TAEKT* (I l-l)+205 ; "PFR", n : 

660 NEXT II 

i70 LPRINT " TOTAL AVEPAGE" 

i80 LPRINT" " 

690 Nr^^NOtl >+NO!2) ■<-N0(3> 

700 IF J=5 THEN N7=N7+N:»<4> 

710 Kl^X+lH-N7 

720 N7-N7+N0<J> 

730 FOR I=K1 TO Kli-NO^JJ-i 

740 I J =N9 

750 K= t 

760 BOSUB 4SO 'FILE READ 

770 IF KiN3 THEN LSET D«"D2* 

780 FOR J1=N1 TO 1 STEP -1 

790 V(OS=CVS<W*!Jin 

SI50 EF S*(J1) <>'■«" THEN S30 
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310 V<J1>-V(C*) 

320 IF J=4 THEN V i 1 1; =V f 1 1 ) * <-l ) 

930 ri=ii-i 

S40 IF 11=0 THEN 860 

350 WEXT Jl 

fthO LFRIlvIT D»5 

370 FOR 11=1 TO N9+1 

SaO IF llCsN'J IHEht V(M^ + l)-'VSN<?+i) +U (ID 

390 fl2(Il)=A2< II )+V(Il t 

90O LPftlWT TftB<Ttai-i>+20>;Vai! i 

910 MEXT 11 

920 LPRINT TABfT* (Il-l >+20> ;V(N^+n I'M? 

?40 MEKT I 

750 f.FRINT TAB(20>;'' 

960 LPRINT TABfSJs'TdTftL " ; 

?7a FOR I 1-1 TO N'?+l 

930 l.PRIMT TAB(T*(Il-l>+20> fA2<11' 5 

'ffO NEKT 11 

lOOO LPRIMT TftB<T*ai-n+20>;fl2(Il-l)/N9 

1010 LPRINT" " 

1020 RETURN 



RUN •BCOMP" 

ENTER THE NAME BF THE ^^CCOUHTS F3LEY nr- BOOKS 



DATE OF FILES L^ST UPDATE UAS FEBRUARY 1 1981 



IIDU MAM-r ACCOUNTING liiWIODS !>Hflt.L, I INCLUIlE? 2 

DO TOO UISH TO COMPARE INCOME OR EXPENSES (I OR E)T I 



raSITION PAPER HUU PREEK RETURM UtIEN f-:EflDYr 



My-BOOKS 
COMPftftlSON OF INCOME 



FEE INCOME 
TOTAL 



PER 1 PER 2 TOTftL AUEFiflUE 

1250 1230 635 

12S0 1250 iS25 



F'RDCESSINC COMPLETE 



BREAK IN 330 
QK 



RUN ■BCOMP- 

ENTER THE WAME OF THE ACCDUNTS FILE7 MY-nDOKS 



DATE OF FILES LAST UPDATE WAS FEBRUARY 1. l?ai 



HOW MANY ftCCOUNTIMG PEKIOrS SHALL I INCLUDE? 1 

DO VOU UU;H TO CDrtPARE INCHME UR fXPE-lNSES <I OR f.)f E 



POiJITION PAPER NOW - PRESS RETURN WHEN READY? 
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MV-BOOKS 
COMPftRISDN OF EXPENSES 





PER 1 


TOTAL 


AUERflGE 


REMT 


250 


3S0 


230 


SUPPLIES EXPENSE 


100 


100 


too 


TELEPHONE EXPENSE 


100 


100 


100 



TOTAL 430 450 ^50 



F-ROCESS:WC COMPLETE 



BREftK IH 330 
DK 



46 BASJC Computer Programs for Business 



3 icGQuntsRecelvahie System 



The rwo programs fti this chapter perform all functions necessary 
for the processing of a coniputeri/^d accounts receivable system, indu J- 
ing the closing of accounts at month 's-end and the preparation of 
customer statemenc?. They have been designed to accept transaction 
information throughout the month and record these transactions in each 
account. In their present form, the only information needed to update 
the file with "charge" transactions is the following: account number, 
payment (P) or charge (C) code, and amount. These transactions can be 
accumulated and then entered in the file at the end of day, or as time 
permits. 

The programs can be used to process several independent accounts 
receivable systems simultaneously, provided that a separate accounts 
receivable file is created for each system. If multiple files arc main- 
tained, care must be taken to insure that accounts are not inadvertently 
entered in the wrong file. This potential difficulty can be eliminated by 
using unique customer numbers in each file. 

Since the security of accounts receivable information is critical to 
the continued operation of most businesses, a procedure must be 
instituted ro recover rhc data in case of system (or file) failure. It is 
recommended that the file be copied after a significant number of 
transactions have been entered and that a record of transactions entered 
be maintained to insure your ability to update the file. It almost goes 
without saying that an adequate audit trail must be maintained for these 
types of financial transactions. 

Operation of the System 

The operation of the computerii;ed accounts receivable system is 
very similar to the operation of a manual system. The two programs 
provided perform the following functions: 

1. Accounts receivable procc£,sing (program name: ACCTSREC)- 
This program allows for the addition of new accounts, correcting 
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existing iccounrs, the display (printing) of specific accounts, and 
entering charge/payment transactions for recording in the file. 
2, Accounts receivable printing (program name: ACCTPRNT)— 
Tliis program prodLices montlily statements, closes out tlie ac- 
counts at die end of each month, and copies the file for recovery 
purposes. 

Initialization of fUcs occurs as a normd part of the system's oper- 
ation (whenever a new file name is entered) and does not require that a 
specific procedure be followed. 

Normal operation of tlie system during the month involves the 
execution of ACCTSREC to initialise accounts and process transactions 
against them. At the end of each month, ACCTPRNT must be executed 
to produce statements and then dose the accounts prior to entering the 
next period's transactions. Note that the monthly statements must be 
prepared before closing the accounts. As a minimum requirement, the 
recovery (file copy) protection feature should be executed prior to 
closing out the files for each period. These files can then be maintained 
to provide a snapshot of the account status at the end of each period. 
Furthermore, they will provide the basis for both file recovery and 
subsequent analysis of account activity. 

The flowcharts in Figs, 3-1 and J-2 illusnate the processing of 
the accounts recei^'able system. 



nccojiti 

INFORMATION 



u 



t 7 

/ aCCOUNTS / 
I RECEIVABLE! 
\ FILE \ 



ITEM 
LIST 



^ J 



\ OPTION 3 

I SPECIFIED I 
I 4CC0UNT 



♦ OPTION 3 
/~^^ 7 

UPDATED I 
\ i 



OPTION 4 
7 

TCP* ' 



^ 



r- 



\ OPTION 5 

7 



UPDATEO I 

I CM r L 



\ 



Fig, 3-1 Accounts receivable processing 



48 



BASIC Computer Programs for Business 




■OfTlON 4 



I I / CLMED / 

CLOSING tCCWBTS , 



Fig. 3-2 Accounts receivsbte prirtir>g 



Files Used by the Accounts Receit^able Syjt«m 

The accounts receivable system requires only one file for its oper- 
ation—a random-access file that contains two record types. The first 
record for each account is a master record containing the customer name 
and address, account number, credit limit, date of last closing, the 
balance at the start of the period, and the payment amount scheduled. 
The second type of record maintains a duplicate of the account infor- 
mation but replaces the customer name and address data with the 
actual transacrions that occur throughout the month. Both record types 
contain apointer lo the next record number thatapplies to the account. 
When the number of transactions exceeds the space allowed in a single 
transaction record, additional records are linked to the earlier record by 
means of the next record pointer. The forma: of the records is shown in 
Fig, J-3. 
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Master record 



Ac- Date 

courit ! of 

number \ clo&e 



Credit 
lirril 



Prsvi- 

DJS 

balance 



Pbv 
due 



Address 
infof' 
matian 



Next 
racord 



PS A$ US LS 

Transaction record 



B$ 



DS C$(1) C$(2l-Cj(41 



NS 



Previ- 


















ous 


Ac- 


Date 




Previ- 




Trans- 


Trans- 


Nsxt 


retord 


count 


of 


Credit 


ous 


Pay 


action 


action 


record 


no. 


number 


cloae 


linn it 


tialanoe 


due 


tvpe 


amount . . . 


no. 



p$ 



AS 



U$ 



L$ 



B$ 



D$ TI(] 



T1S(t 



Ni 



Occurs M times 



F)g. 3-3 Record lornii IS 



MAJOR SYhBOL TABLE - ACCOUNTS RECEIWABLE SYSTEM 



FUMCTIOhlS USED 



Z NAME 
I 

1 rt* 
fill 
rt2t<> 
A9* 
L* 
C 

Ct( ) 
CO 
CI 

ci*o 

C2 
C3 

D 

Dl 
Dl« 
D9* 
Ft 

Fl« 

I 

J 

Jl 

K 

Kl( ) 

L* 

LI 

L9* 

M 

M* 

Ml 

Nit 

M2t 

M3 

hi 

N* 

a 
p 

p-t 



DESCRIPTION 



ACCOUNI NUMBEH - IN FILE 

TftlP ftNSUER VrtRIftELE 

ACCOUNT NUMBER nRKrtY 

INPUT I^CCDUNI NUMBER 

PREi/JOUS BALANCE - IN FILE 

LINE COUNTER 

CUSTOMER NAME AND flODFJESS - IN FILE 

TQTAL CHARGES 

RECORD COUNT KR 

JMPUT CUSTOMER NAME/ADDRESS 

PAYMENT STATUS INDICATOR 

MAXII4UM LINES PER flCCOUMT 

NEXT PAYMENT AMOUNT 

PAYMENT IjrUE - IN FILE 

NUMERIC OF LAST PAYMENT AMOUNT 

NEXT PAYMENT DUE DATE 

DATE or PROCESSING 

FILE Nf^rME 

FILE NAHE TO COPY TO 

INDEX AND ARRAY POINTER 

INDEX AND ARRAY POINTER 

RECORD'S FOUND COUNTER 

RECORD NUMBER TO KEttI) AND WRITE 

RECORD i'S FDR ADDITIONS 

CREDIT LIMIT - IN FILE 

L(^ET RECORD NUMWiR UStD IN FILE 

INPUT CREPIT LIMIT 

MAX NUMBER OF TRANSflCTION PER RECORIi 

MESSAGE TD ALL ACCOUNTS 

MAXIMUM (^CCOUMTB 

MESSAGE TO ACCOUNTS IN ARREARS 

MESSAGE TU ACCOUNTS EXCEEDING LIMIT 

NUMBER OF ACCOUNTS 

NUMERIC OF NE>;T KECORD + 

NEJ(T RECOfiri HUMDER - IN FILE 

OPT ION NUMBER 

NUMERIC OF PREVIOUS RECORD f 

PREUIDUE RECORO * - IN FILE 

TOTAL PAYMENTS 



MA ME 



DIM 

CVI 

Mt;i» 

CVS 

MKSt 

GOSUE 

RETURN 

TAD 

LSET 

OPEN 

CLOSE 

GET 

PUT 

LEN 

1 INT 

I LOF(i) 
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RO 

T 

T*() 

TO 

Tl 

T1»0 

T9 

T?* 

U> 

Xt 

XI* 

X2* 

X3» 

Zl% 

TO, 



RECORD POINTER ftRRAT 

TAB wfiRI(iIH.E 

TKftNSrftCTION TYPE - IN FILE 

TOTrtL SflLANCE or ACCOUNT 

NUMERIC or Tl» 

TRANSACTION AMOUNT ~ IN FILE 

INPUT TRANSACTION AMOUNT 

INPUT TRANSftCTION TVPE 

nftTE Uf PREVIOUS tLOSE OUT - IN FILE 

LIME OF ASTERISKS 

DUMMY MAKIABLE 

LIME OF HYPHENS 

OUTPUT ATTENTION INDICATOR 

INPUT COPY RECORD 

OUTPUT COPY RECDRD 



Accounts Receivable Processing 

Program Name: ACCTSREC 

This program performs all functions necessary to add, change, and 
update accounts with payment and charge transactions. The following 
five options are available ro the operator through keyboard responses to 
program messages; 

Option 1 lists all current account numbers and indicates the record 
number at which they are scored in the file. 

Option 2 prints a specified account in Statement format. 

Option i adds new accounts to the file. Program messages request 
all necessary information from the operator. 

Option 4 corrects information In the master record for eich ac- 
count. The operator is allowed to change name, address, account 
number, and credit limit. For security reasons, changes to recorded 
transactions are not allowed. 

Option 5 allows for the entry of payments and charges against 
customer accounts. The present form of the program allows entry of 
payment (P) and charge (C) transactions only. The allowable transa.aion 
codes can easily be extended to meet your specific needs. 

^ CLEAR 'Jr-ifi 

iO REM BrtVED rtT ftCCTSftEC 

20 REM fiCCDIINTS RECEIVABLE SYSTEM 

30 REM lt******itt**it*i***tls*tt******t********t*t-***t***.*tt!.*t**« 

3S a fi 

SO XZ* = " " 

60 M=20 
70 MS" 30 
aO (11=200 
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9C- DIM T*<Hl,Tl±(MKRtMi; , A2* (Ml> ,Ct (4) ,C1*<41 , KJ (2> 

1.00 PRINT "ENTER flCCtlUNtS ftECEH^APLE FILE NflttE"; 

I id INPUT F* 

120 BDSUB 4t0 'FILE OPEN AND DEFJNE 

130 GOSUD 13BO 'BUILD ACCOUNT TABLH 

140 PRINT 

150 PRIMT X* 

liO PRINT 

17C PRINT "THE F(]LI,OWINB DPTI0M3 flftE fiVrtlLrtBL.Er " 

lao PRiwr 

li^O PSJNT TftB iS> ;"1 , . ACCnUNT LICT (WITH RECORD NUttBFRS) " 

:>0O PRINT T«B(S> J "2. .PRINT OF SPKCIFIED ftCCHUMTS" 

210 PRTWT TflU I'j) ;"3. . ADDINS NEW AECOUrtTS" 

Z20 PRINT lAISCS) i"-*. -CDRKtCTJNG flUCOUNT IMTORMflTTnN" 

330 PRINT TrtB{5> J "C. .ENTERING CHARGE/PAVMENT T RflNS f^CT I DNS " 

^4'? PRINT 

7S0 PRINT "ENTJSR OPTION D!£SIRFD"j 

3feO INPUT O 

270 IF 0=1 THEN bOSUB 2580 'ACCOUNT LIST 

2ao IP rj=«3 THEK tiDsuB ';!oaci ■F(p:i:ijftD print 

290 IF 0=3 THEN BDSUB 650 ' ftOD NEW ACCOUNTS 

?50O IF O"* THEM QOSLJB i'/lO 'CORRECT ftCCOJNT INFO 

310 IF 0=3 THEN HDiSIIP Ift-PO * A&D TRfiNSACTIDNS 

320 PRINT 

5:^0 PRIMT "DO YOU WISH TO rONTINUE (Y DR H1"f 

340 INPUT Al» 

320 IF LeFT*<Al»,1 )="Y" THEN y^O 

360 REM )(:(i]i)c««t:^*4(t««**)c«3|it)'«1i*vit:1i*l[i(t**lii|[^«lilt1ili*ilc**:t!|r<(*»i**t^ 

T70 REM PROGRAM TERI'UMATIDN PUINT 

l.<=>0 PRINT 

4C0 PRim 

410 PRINT "pPiOCeSSlNG i:QHPt.ETE" 

420 PRIMT 

430 STOP 

440 RFH **********+********************»*************** ****** 

4S0 REM OPEN AND DEFlNt FILE. 

460 REM *iHiiitiMt.***t****itt*it*it******-***ttt*.tiHHftt*tt*i^*».***ti;ti*^ 

470 OPEM "R", IjF* 

4aO FIELD 1,2 AS F*,a AS ft*, 8 ftS U«, E AS L«,4 AS B«,2 AS D« 

490 FDR S=l TD M 

500 FIELD l.26t(X-l>*3 A!i XI*, 1 ftS T*(I),4 flS T1*(I> 

SIO NEXT I 

520 FIELD 1,2* AB >1»,23 fiS C* (1 > , iS AS Ct(2),25 AS C*13),2S AS C*(4) 

53U FIELIJ 1,12*. flS 11*, S «Ei NT 

540 GET 1 , 1 

aSO L1=CVI(P«) 

560 IF Llil THEN L.l = l 

570 RETURN 

SSO RFM **Htt>IHt****t**.**t*t*t***t*!tttt**ltt*t*t*il*tf*t*Jt**lt.**t»-* 

390 REM PILE RFAD 

^011 RFJM Jli********************* *******««*«** «**«*»«K«*«:t*it ****** 

610 GET 1,K 

fc20 P=CWI <P«> 

630 M=CVI (N*) 

640 RETURN 

hSC REM **************************************** 1***^********4* 

640 REM AUD N!TN ATOCHIKTS 

^70 RI:M ftik****^* «*««««***«***«**««»***»» *««****»*** *********** 

6S0 PRINT "***** ADB NEW ACCOUNTS *****" 

6TO PRINT 

700 PRINT "ENTER THE ACCOUNT NUt-IBFR" ; 

?10 A"f9-"" 

720 INPUT A'?* 
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'FILE ftEftD 



731:1 IF fl>?«i="" THEPi 940 

750 IF LENffl'JSKS THEN fl';»=(lr'?«* DOT D 750 

760 A2*(M3)=A9* 

770 PhJMT "ENTER THE t;;ReDIT LIMIT"; 

7ao 1.9=0 

790 INF^UT L? 

aOO PRIJ>IT "EMTEH THE r.UBTGMER'B NfiHE"s 

aio ci»tn="" 

920 INPUT i;i*(l> 

330 PRINT "EWTER THEIR ADDRtSS - J LINES MAX" 

S40 FDR I=S TO 4 

SSO C1»<1)™"" 

ai)0 IF CJ4U-1K>"" THEN INPUl Ci*<I) 

e7<:) NEXT I 

BBO QOSUB 950 "FIND RECORD # 

390 Hch3>=Kl CD 

910 LSKT P*oiriKI*<Ll) 

920 GOSUB i:!30 "FILE WRITE 

930 EDTO 700 

940 RE rURW 

9SCI REM t*:t1it*>ttt«ilijitfi*«*t*«^**»ili!tt*:il<i|i»l**iai11t)::li41*:l(t<i«:t^t4«*ti*:l< 

94>0 REM FIND RECDftlJ NLIMBERiS 

<?70 REM **!(*«» ;««ir******«*l»«*«**«***«*«tt* *****: t**il(ti|i«S:**:»i[*Kn« 

980 r-2 

■?■?'.* J-1 

1000 IF ICs-Ll THEN 1040 

lOtO LJ-H + 1 

1020 I=L1+1 

1O30 bOtci loao 

1040 K=I 

1030 soBUB sao 

1O60 I-H-1 

1070 IF A*<;>" 

lOSO K1(J>=I-1 

1090 J"J+1 

1100 IF .J<=7 THEM 1000 

1110 REM tt************ SETUP fiND WRITE K;ECDRDS **»***»«*»»*** 

1120 LSET P«=MKHt(0) 

1130 LSET L»=MKI»<L=') 

1:40 LSET Bit-MKSiMO) 

1150 LSET u*="WEH a:;ct" 

1160 LSET N«=MKI«iKl (2) ) 

1170 LiS^T r:«( 1 >sC!*< 1 > 

1180 LSET C*(2>='C1.*<2) 

IIW L!)E?T (;*<.'5>-Cl* (3) 

1200 LBET C*(4)~C1*(41 

1210 LSET fl*=A9* 

1320 K=K1 (11 

1230 60 SUB 1330 

1240 LSET PS=MKI*(K1 (I) ) 

1350 LSET N«=MKI*fO) 

1260 LBET H*=fl7* 

1270 FOR 1=1 TO M 

1280 LSET r*(I)=" ■■ 

1290 MEXr I 

1300 K=K,t (23 

13JO BOSUB 13 30 

1320 RETURN 

13;iO KEH 5|t*f***4i|i^c|i*»«it»*i|i*T»-||Hi-H(Ti|tiflt*-»*-****«1't*i(**i|f«»*****«*»'«lll 

1340 REM r-ILE WRITE 

1350 REM Jim**********)***-******** ****»**«»»;*«*«** ***t*llt^[*H,:»j(»tM!« 

13tO PUT 1,K 

1370 RETItRN 
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"THEN 1000 



'WRITE ADDED RECORD-MftSTER 



WRITE ADDED REC£]RD--TWriMS>ftCTION 



13BO REM tt***tllttifiHf**it$>t*il***ll**>t*t*lt**]ll:*IHt***lff****t********* 

1390 REM EiUtLD ACCT TAB! E 

1400 REM )t*t;*!(* + ***«f**««*t«** + «***t**t*******t**tt***«**tti|l*«« 

1410 1=^1 

1121? K=2 

1430 OOSlJfi RSO 'FILE READ 

1440 IF POO THEr4 1480 

1450 F(in=K 

1470 l==I-fl 

1480 K=!K+1 

1490 IF K<L1 THEN 1430 

1500 «3^I-i 

IStO RETURN 

1530 REM GEftRCH TAtlLE 

1550 PRINT "ENTER ACCT MBR"; 

1560 A'?*.^"" 

1570 INF-UT fl'?'* 

1580 IF fl<T+ = "" THEM 16A0 

1390 IF L!=M(fi9il.K(J THEN fl9*"fl9*+" "1RDT01390 

16()0 FDR I = t TO M3 

lAlO IF ft<?*=ft2*<Ii THEN 1650 

I620 NEXT I 

1630 PRINT "fiCCDUNT NOT FOUND" 

1SI40 GOTO ISSO 

lt50 K=R(I) 

liAO RETURN 

1670 REM t*tt*tt»ttt:it*ttttt»i1(ift^ilttt*»tt*»ttsi:t*tti!i:ttttt$^itin*iH 

16 SO REM ADD TRfiNSACTIOWS 

1490 REM if*»t*t*it*******it*******tt*******t*it*!t**t**K**if*:**il± 

1700 PRINT ■■***«* ENTERING TRANSACTIONS ««»*«" 

1710 PRINT 

1720 K^O 

1730 J 1=0 

1740 GO SUB 1520 'SEARCH TABLE 

1750 TF K=a THEN 207O 

17iO PRINT "ENTER TRfiNSACTION CODE <P QR C), AMOUNT"; 

1771.1 INPUr ■T'/it,J9 

1760 IF ■t'?%="C" on T^t^'T" THEN 1510 

l??-:! PRINT "ERRaNEOt-JS TRANSACTION ZDOE - TRV AGHIN" 

1 BOO GOTO 1 760 

IBIO QDSUB S80 'Pll.E RKAD-HASTER 

1B20 K=N 

1B30 SOSUE 380 'FILE REftD-TRANSPiCl IONS 

1B40 IF N>0 THEN 1020 

1B50 FOR Jal TD M 

1860 IF T«[J)=" " THEN 1990 

1B70 NEXT J 

1880 L1=L1+1 

1S90 LSET N»'MK1*CL1) 

("JOO eOSUB 1330 'FILE WRITE 

1910 .Jl = l 

l-jro LSET p*=MKl*a'J 

1930 K=H 

1940 LSET N«=Mkl«(i» 

1950 FOR 1=1 TD M 

I960 LSET T*<11=" " 

19 70 NE-KT I 

1730 J=l 

1970 LSET T*(J)=iT<?* 

2000 LS£T T1*(J>=MKS*(T9) 

2010 GOSUE 1330 'FILE WRITE 

2030 TF ,1H^1 THEN 1720 

2030 LSET P*=KKI*(L1> 



2040 K»l 

2Ci!!J0 GOSUB 1330 'FILE WRTTE 

20,0 GDTIJ 1720 

2O70 RETURW 

2oao REM ***Ht****:Ht***tt**ilittii**.im-i*t**%*t*lt**»* ********** 

'JO^O REM RE CORE) PRINT 

2100 REM ««***:***»***« mai «****»:*«************»******» JIT* *«««***** 

2110 PRINT " + + **■+ ACCOUMT PRINT * + + **" 

1120 PRINT 

1140 GDSUB 1520 'SEARCH TABLE 

2J50 IF fl?*-"" THEN ^360 

3160 IF KraiJ IHEM jifjiO 

JI70 GDSUB 580 'FILE READ 

2130 PR£NT 

21V0 f'FiINT Xl» 

2200 PRINT 

2210 ("RINT TAB <5> !(;»('> T.'ia !33> ; "fJCCDUN f (ti-'sA* 

2220 Pfi: INT TAEi(5) ;C«(yi 

2330 PRINT TftBtS>?C»i' 

2240 PRINT FrtiKSJ ;C*(j;> 

2'3SO L=CVHl.») 

22A0 B-CVSfSe* 

2:^70 TO=S 

2300 PRINT 

2290 PRINT X2* 

2300 Pfiiwr "PRFyiOUS &rt(.ANi;U:";'i! rflhi3;i] s "A£> 0F= ";iJ* 

2310 PRINT i<2it 

2320 PRINT T(^Bl3S) : "CHARBES";Tf^B»43> ; "PSYMENTS" 

2330 K=N 

2^40 G03UB SBO 'FILE READ 

2330 FDR J=i TO M 

23*0 IF TS(J>=" " THfcN ZUbO 

2370 Tl=CyS<Tl*!J> ) 

23S0 T-.J3 

23fO IF T«tJ)="C" THEN 24,TO 

2400 r^4S 

2410 TO=TO-T1 

2420 GOTG 2440 

241^0 TOnTO+TI 

2440 PRINT T(!lB(T>iTl 

■3450 N1"XT J 

244.0 IF N>0 THEN rSSO 

2470 PRINT Xa* 

24S0 D==.l*Tl^ 'COMPUTES PflYHENT AMOUNT MT lOK Bl^l.ftNCE 

2490 D-(IMT(DlK10O) ) ^lllO 

2500 IF D<0 THEN ll^-O 

2S)0 PRINT "CREDIT ;.IKII[';L 

2520 PRINT "NEW BALANCE: " 5 TO; TAB i 2S) ; "MOMTHLY PAYMENT: ";I> 

2S30 PRINT 

2540 PRINT X» 

2550 BDTO 213.0 

23A0 HGTimN 

i570 KEM **«**«*«*»«*Ji*»»*«*»**»*tt****!litt*«tt**t«*«**a(*****i|t* 

2580 REM PRINT flCLBUNT NLIMBERS 

2590 REM *t*t^t**itt*ittt1fttfJtt*i*lltt-/(*t*tt*ttt1t%ll1i:^tt*^**.*ltt.** 

2600 PRINT ■'«**** ftCCOL'NT LIST *>***" 

2610 PRINT 

2*20 PRINT 

E^-SO PRINT )(» 

2i40 PRINT 

2i50 PRINT "NeR"sTftEUO>; "ArCOUMT"s Tfti5<20) ;"REr, *" 

2tAO I'RINT 

2fi70 FOR 1=1. TO M3 

li.BO PRINT I;TAB(10> Sfl2* tl) iTftEi(2C.3 ;R(TJ 

2iT0 WEXT I „ . . . „ 
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2710 REM ***«* + »*«it*********«*»»*t»**1i*ir«********»*«*im*j»:ii»!<ili 

2720 REM CORRECT ACCOUNT INFQRWATIQN 

2730 RE>1 }t.tf^f*****>tt****»i******.t**tt**»».Titt.**t»*itt*%**»****t***% 

2740 PRINT "♦**** CORRECTIONS *****" 

27 SO PRIMT 

Z7^0 G05UB 1SC?0 'SEftBCH TABLE 

2770 IF A?«='"" THEN 3190 

27aO FRIMT "ENTER THE INKDRMATION TO BE CHHMGEO" 

27V0 PRINT "NAME,.(N) ADDRESS.. !A> ACCT NBR,.(HN> LItltT. . (L> " 

2BOO ftl»="" 

?I310 INPUT M* 

2820 IF Al*="" THEN 2760 

2S3v GGEU& SaO "FILE READ 

3940 IF A!*<>"N" rHPM 2'MO 

2950 REM iltlttkit********* CHANGE NAME *»*.*«**-iH».**it**.itt*timt 

2Bi>ii PRINT "ENTER NEW NAME"; 

2870 INPUT C1«<1) 

2SS0 LSET C*(I>=CI*a> 

2S'?0 GOTO J 130 

2900 IF fllSO'ft" THEN 30O0 

J^IO REN ***♦*****»***»* CHrtNGE ADDRESS t*V********-*t*****t* 

2920 PRINT "ENTEP NEW ADDRESS - :S LINES MAJC 

Jf-O Gl*a) = "*" 

2<?40 FOR 1=2 TO 4 

J950 CI *(!)="" 

2760 IF Cl*(I-n<>"" THEW INPUT Cl*a> 

2'?70 LSET C«(I)«C1*CI> 

2930 nk>;t I 

2990 GOTO 3130 

3000 IF f\l*<:s"L" THEN 30A0 

3010 REM *************** CHANGE CREDIT LIMIT t *** ***il **t * ** 

3020 PRINT "ENfER NtW CREDIT LIMIT"; 

303;0 INPUT L-^ 

31J40 LSET L*=MKI*iL9) 

JClSO (JUTQ 3i;i-o 

3060 IF ^1*<>"AW" THEN 5190 

3070 REM »«*«***»******» CHANQE ACCOUNT NUMBER *iHt*tif*)nHf** 

30B0 PRINT "ENTER NEU ACCOUNT NUMBER"; 

3090 INPUT A9* 

:5100 IF LEN(Af*><;a THEN ft'?*=A«;»+" ":a[]TD3100 

31 lO A2» ( I)=A9» 

3120 LSET Aa=A9a 

3130 GQSLB 1330 'FILE WRITE 

31 -lO IF Al*<>"ftN" THEN 27i>0 

3150 K=N 

Slid IF Ki;=0 THEM 2760 

3170 rsOSUB 380 'FILE READ 

3iaO BOTO 31 20 

3190 RETURN 

RUN 'flCCTSfcEC' 

EMTER ^COUNTS KECEJUftBLE FILE MAME? ftCCDUNTg 

TME FOLLDUINB OPTIONS ARE AyfllLABLE! 

1.. ACCOUNT LIST (UITH RECORIl NUMBERS) 

2. .PRINT flP SPEIlIFIEIi ACGniJNTB 

li.. ADDING NEU ACCOUNTS 

■1. .CORRECTING ACCOUNT INFORHATIOM 

S.,ENTERIN[) CHAd^Df /PAYMENT TRANSACTIONS 
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ENTER OPTION BESIRED? 3 

llc);««i|t MID MLU nCCUUNTS tTti*** 

ENTER THE ACCOUNT MUMtllR? 1H11 

ENTER THE CREPIT LIMIT? 1000 

ENTER THE ClISTOMeR'S NflME? JOHN ri , JONES 

ENTER TfJEIR jMjrREES - 3 LINES MAX 

? ?41E TOLLHUUSE ROflli 

? SYRACUSE NV 13203 

? 

ENTER THE fiCCDUNT NUMBER? a2S?2 

ENTER THE CREnii LIMIT? 1500 

ENTER THE CUSTOMER'S NAME? JANE E. IIQE 

ENTER THEIR ADDRESS - "i LINES MAX 

■? 113 HARRISON W*r AFT 4 

T MERCED Cfl ?5340 

ENTER THE ACCOUNT NUMBER? 

no YOU WISH TO CONTINUE (V OR N)"? N 



PROCESSING COMPLETE 



BREAK IN 430 
OK 



RUN "f^CCTSREC" 

ENTER ACCOUNTS RECEIUflBLE KILE NAME? ACCOUNTS 

THE FOLLDUINt; OPTIONS dUE AVrtlLAELEt 

1.. ACCOUNT LJST CUJTH RECDRD NUMBERS) 
2.. PRINT OF SPECIFIEIl flCCDUNTS 
3.,AIiUlNG NEW flCtOUNTS 
'(..COHRECTINO ACCOUNT INFORMATION 
S.-ENTERINB LHAttGE/PArMENT TRANSACTIONS 

ENTER OPTION tESIREE? 1 
ttTrn* ftCCOUNT LIST lltmt 

NPR ACCOUNT HEC * 

1 mil 2 

2 22222 4 

EO YOU WISH TO CONTINUE (Y OR N)? Y 
ENTER OPTION BESIRED' S 
***iH: ACCOUNT PRINT ***** 

ENTER ACCT NBR? IIUI 
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JOHN D. JDNES /tccouHT tuim 

?4L5 TOLLHOUSE ROAD 
SYRACUSE NV 13203 



PREVIOUS balance; o as of: neu acct 

CHARGES fflrhENTS 



CREDIT LIMIT t JOOO 

NEU FrtLANCE! MOMTHLY PAYHEMT; O 

EHTER ACCT N»R? 

DD YOU WISH TO CONTINUE (Y OR N)? N 



PROCESSINQ COMPLETE 



PftEAK IN 430 
OK 



RUN "ACCTSftEC 

ENTER ACCOUNTS RECEiyAELE FILE NAME? ACCOUNTS 

THE FDLLOUING OPTIONS ARE AVAILABLE; 

1.. ACCOUNT LIST tWJTH KECOhli NUMBERS; 

2>.PftiNT OF SPECIFI[;Cl ACCOUNTS 

3..ftnDIWe NEU ACCOUNTS 

4. .CORRECriNO ACCOUhfT INFORMATION 

3,, ENTERING CHAfteE/f-ftTMENT TRANSACTIONS 

EWTER OPTION BE^IRED? A 
***** CORRECT lONEi ***** 

ENTER *CCT NBH? 11111 

EHTER THL INFORMfiTIQN TO BE CHANGED 

NrtN£..CN) ADDRESS. .(A) flCCT KKlR.,(AN> LIMIT. .<L> 

? L 

ENTER NEW CREDIT LINIT7 1200 

ENTER ACCT NER? 

DO YOU WISH TO CONTINUE (V OR W>'f V 

ENTER OPTION DESIR£DT S 

***** ENTERING TRANSACTIONS ***** 

ENTER ACCT NPR? 11111 

ENTER TRrtNSACTIQN CODE (P DR OfAMOUNT? C 

?? IS. 89 

ENTER ACCT NERT 22322 

ENTER TRANSACTION CODE ,P OR C). AMOUNT? p, 14.43 

ENTER ACCT HBRT 11111 

ENTER TRANSACTION CODE (P OR C), AMOUNT? C, 12.3-4 

ENTER fltCT NBRT 22:22^ 

ENTEft TRANSACTION CDOE ^P OR C)t AMOUNT? Cr30.l2 

ENTER ACCT NBR'' 
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no you uisH to continue cy or njt y 

ENTER OPTION JJESIREDT 2 
***«« ACCOUNT PRINT ***** 

ENTER ACCT WDS? Hill 

****lt*^**!t***************ltlt*********!^t********************* 





JOHN P. JONES 

?415 TOLLHOUSE ROrtD 

SYRACUSE NY 13203 


ACCouwT *;iiiii 


f-RI 


Evicus balance: o 


AS OF! MEU ACCT 


CHARGES PftVMENTS 
15.89 
12.34 



CREDIT limit: 1200 

NEW balance: 2S.23 MONTHLY PAYMENT! 2.62 

********** t*****:^*************!^!):***!^*********************** 
ENTER flCCT HBKl 

BO you WISH TO CONTINUE (Y OH U}? H 



PROCESSING COMPLETE 



BftEAK IN 430 
OK 



Accounts Reeeivabfe— Reports 

Program Name: ACC'J'PRNT 

Tiiis prc^ram performs a,ll functions neccssasy to process the ac- 
counts receivable reports at the end of the month. In addition, it offers 
an option that copies the files for recovery purposes, 'Ihe following four 
options are available to the operator through keyboard responses to 
program messages: 
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option 1 lists all current account numbers md indicates the record 
number at which they arc stored in the file. 

Option 2 allows the operator to create a duplicate of the accounts 
receivable file. At a minimum, this option should be executed monthly, 
prior to closing th* accounts. 

Option 3 prepares monthly statements for the customers. By 
changing variable C3 to an appropriate value, a single statement can l>e 
prtipared on preprinted forms. Minor modifications to the "Monthly 
Statements" subroutine may be necessary' ro match preprinted forms. 
The operator can indicate the messages that are to be printed when spe- 
cific account conditions are identified. In the program's present form, 
three messages are available: the first can be prifi".ed on all accounts, 
the second on overdue accounts, and the third on accounts that have 
exceeded their credit limitation. 

Option 4 closes the accounts receivable file at the end of the ac- 
counting period and produces a summary report to indicate the status 
of each account. 



5 CLEAR 900 

10 pFM E3AVFD ST BCCTPRNT 

20 REM ACCOUNTS RECEIVABLE SVSTiM - REPORTS 

50 REM ttimtt*t*i*tt1Ht't*'H^*t'Ht*t'Httt1l**it**tt**'t******t****4** 

■15 CLS 

40 >[*=" * + *+**♦***«*****************♦********** **♦** + **********■■ 

SO )(2*-" ■ " 

70 h=M 

80 M3=S0 

90 ML"?00 

lOO Dll-t T» (N) ,Tl*<nj ,R(t11J , A2i<rtll .C4 (41 ,C1*(t> ,Ki t2) 

110 PRTNT "ENTER TODflV'S DATE"; 

120 INPLlT D'?* 

130 PRIWT "ENTER flCCOUWTS RECEIVABLE FILE NAME"; 

140 IMPIJT F* 

ISO GOSUB 4SO "FILE OPEN AND DEFINE 

160 GDSUB 710 'BUILD ftCCOUMT TABLE 

170 PRINT 

lao PRIMT X* 

190 PRINT 

2O0 PRINT "THE FOLLOWIMr^ OPTIONS ARK ML'AILABLK: " 

2IO PRINT 

220 PRINT rAB(Ei) ; "1. .flt:COUNT LIST (WITH RECDRIJ NUMBERS)" 

230 PRINT TA13<E) ; "?, .COPY FILE" 

240 PRINT TAB (S ; s''~. ■ MONTHLY 8TftTSMGNT PREPARATIO^f" 

250 PRINT TftB<5> ; "4. . MCINTHLY CLOSE-OUT OF ACCOUNTS" 

260 PRINT 

270 PRINT "ENTEfl: TH£ OPTION DESIRED"; 

2ao INPUT 

2';0 PRINT 

300 IF 0=1 THEN RtlSIJB 1 6A0 " ACCOUNT LIST 

310 IF 0"2 THETN EOSUB 1800 'COPY FILE 

320 IF 0=3 THEN GDSUB ShO " HONTHLV STATEMENIS 

330 IF D=4 THEN G0SLI6 19VO ' CLOSt ACcnLINTEs 

340 PR3NT "DO YOU WISH TO CONTINUE CY OR N>"; 
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350 INPUT A Hi 

3iC) IF LEFT*(A1*,1>='"Y" THEM 27(5 

370 REM *a)iiK **):«* IK *:*]i*«>l'it*^4:!K*!t(*:t*li**iiiit:4**4:«tlfi|:«t)i If* t*i^Jt!KtirK't«l' 

3HO REM PROHRrtM TERMIMAIIDN POINT 

390 REM *t*1itttt!|t*J-1i**«»********t»**»*»***t*il(******»********«** 

400 PRINT 

410 PRINT 

420 PRIMT "PRORKSSINB CnMPLETE" 

*30 PRINT 

440 STOP 

450 REM »t*l>**********'Jt ****** ■t******t****<l*^ll*-^**t*lk.***-i**lt**** 

460 REM OPEN AND DEFINE FILE 

4eO OPEN "R'-jlnK* 

490 FIELD 1,? AS P*,S AS A*,G1 AS U*,2 AB I.*, A ^i!? B*,:? AJ! Ti* 

SOO FOR r=l TO M 

5to Fiei D i,:i6+(i-i > t5 AS XI*, 1 fts t*<i>,4 as ti*(i> 

520 NEXT 1 

S30 FIELD I,2(i AS ill*, 23 AS C» f 1 ) , 2S ft!i C*i21,2f3 ftii CSSai,:^^ AS (:*i4> 

S4ti FIELD l,13e. AS Xll,2 AS N« 

5S0 BKT 1 , 1 

560 H=CWI (P*j 

H70 IF Lit: J THEM Ll^-I 

58>> RETURN 

?><?0 fiFI^ ttt***it**t it* *** tut* t**iH(**tt***-* ***.**** *t:i».iim**ilf^***^iHt* 

fcOO REM FILE READ 

610 HKM **♦»****»**«*»*«***«*****-**«*»:«*»****«***»«*«******»»** 

ibSO GET 1,K 

fe30 P^CVI {p«> 

{,Ao N=r;ui<ws> 

iSO RETURN 

670 REM FILE WRITE 

680 REM li*itl|i*>tl«t*f«i<**«*tt4i|i3|(Xtit3l<«*i^^il<«*)L;^*»t««»i«4i!t*i):i»i«tit*p«l< 

bfO PUT 1,K 

700 RETURN 

710 REM *:/l***t.tt»*M***t********t***>lit*tt****it*****im:t*tHH'l*'*'** 

720 REh BUILD ACCT TABLE 

740 1=1 

750 K^2 

760 eOSUB bVO 'FILE READ 

770 IF POO THEN 810 

7BO R < I ) =K 
790 A2*tll~fl»i 
BOO 1 = 14-1 

BiO K=K<-t 

eSO IF K<L1 FHEN 760 

330 t13^I-l 

840 RETURN 

Sno R€I1 *t*)b*i«*it:*iit**itit*t«***»ili!li**)^!l<*i)C«a<tXf 41X1* *!l<iliiltit4i**!liir):«ili*): 

860 REM MCIHITHLV STrtlEMENTS 

S7Ci REM )i:(i«t4i!li'3tt«:t:(i***»il<***il<44<*KKi:t!^«»!l<**»«**»:li4i^»***»««!tJiJ:**:«* 

BSO PRINT "**♦*« AC-CQUMT PRINT *«*«*■' 

BVO PRINT "ENTER T"Hi; DUE DATE FOR FAVMENTS"; 

900 INPUT Til* 

910 PRINT "ENTER MESSAOE FCSR ALL ACCOUNTS" 

920 INPUT M* 

930 PRINT "ENTER MESSAGE FOR OVERDUE ACCOUNTS" 

940 iNf-irr riLs 

¥SO PRINT "ENTER MESSAGE FOR ACCOUNTS OVER THEIR CREDIT LIMIT" 
960 INPUT M2* 
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970 PRINT "POSITION PAPEK NOW" 
930 INPU7 Al* 
9<?0 LPRINT " •■ 
1000 FOR 1=1 TD M3 
1010 K-ft(lS 



S020 


BDBUB 590 'FILE READ 


1030 


LPRIMT " " 


1040 


REM ********* PRINT HEADINGS ****»«*«** 


1050 


LPRINT X* 


1060 


LPRINT " ■' 


1070 


LPRINT TAB (35) ; "ACCOUNT «:")A* 


loao 


LPRINT Tf-lB(a) iC*(l I 


lOipO 


LPRINT TAB(3>!C1i*3) 


lioo 


LPRINT TfiBO) ;C«(3) 


mo 


LPRIMT TAB(5);C«(4J 


1120 


L=CWI<Lt> 


1130 


BnCVSdH*) 


1140 


D1=CWI (D*> 


1150 


TO=B 


1160 


LPRINT ■■ " 


1170 


LPRINT TAB ( 15) ! "STATEMENT DATE: " ( D9* 


uao 


LPhINT Xa* 


1190 


LPniNT "PREVIDUS BALANCE; - J Bj TAB (35> ; "flS OP: " ? U* 


1200 


LPRINT X2* 


1210 


LPRINT TAB (35)! "CHARGES" ; T^B (45) s "PAYMENTS" 


IS 20 


C=C+l-5 


1230 


K=N 


12-^0 


REM ********* PRINT TRAN?jACTIOMS «*** + *** + **** 


12S0 


GDSUE 590 'FILE READ 


l-2-iia 


FDR .1 = 1 TO N 


1270 


IF T*£J) = " " THEN 13W 


IZSO 


TJ=CVS(Ti*(.J > > 


12?0 


T=3S 


1300 


IK T»U) = "C" THEN 1330 


1310 


T=43 


1320 


PO=PO+Tl 


1330 


T<li=TO-Tl 


1340 


SOTO 1L-60 


1330 


TO^TO*T1 


1360 


LPBINT Trta(T>;Tl 


1370 


C-C+1 


13S0 


NEXT J 


1390 


IF NXi THEN 1230 


1400 


LPRINT >"2S 


1410 


(3DEUB 2DfeO 'COMPUTE PAYMENT 


1420 


LPRINT "CREDIT LIMIT: ":L 


1430 


LPRINT "NEW BALANCE: '>;T0;Tfl8(25) 5 "PfiVMENT &UEi";Dj" 


1440 


LPRINT " " 


1450 


LPRINT X* 


1460 


C^C+S 


1470 


POs-O 


14S0 


REM ************* PRINT MESSJAeES ****************** 


1490 


LPRINT M* 


ISCK) 


LPRINT '■ " 


1310 


C=C+2 


ISSO 


IF C2=0 THeN 15S0 


1530 


LPRINT Ml* 


ia40 


C=C+1 


15 so 


[F TO<=L THFN ) 5B0 


1360 


LPRINT H2« 


1S70 


C=C+1 


13B0 


FOR J«l^ TO C3 


15<?0 


l.PRINT " " 


liOO 


NEXT J 


liSlO 


r,=o 


1620 


TO^iO 


1630 


NEXT I 


1640 


RETURN 



'JDI* 



16S0 REM :tt*t:Hirif*i).*ttif1flit^iiitt1r**tif*!tttti/*t*Jt*t*.^IHt**li.lt**Si».***-lt 

\i,bO REM PRINT ftCCDUNT NUMBERS 

1670 REH *tt**t*»*****»L***1l***ll**ili.*t****************t**3***** 

liSO PRINT "***** ACCOJNT LIST **<<**" 

1690 LPBINT ■• " 

17CiO LPRINT " " 

1710 LPRINT X* 

1720 LPRIHT " " 

1730 LPRINT ■'NBPI";T<515(10>;"SCCmjNT"iTAO«^0) ; "REC 4t" 

1740 LPRINT " " 

17SD FOR 1=1 TD N3 

1760 LPRINT IsTWEdO) ;AZ«(I5 ;TflB(20);R(I) 

1770 NEXT I 

17SO RE TURN 

1790 REM l»3li*tttt*****3l***ttt*****tt1i:**t***t.t**t**ll******tt**tlt 

1800 REM cnpy Fn.K 

ISIO REM t*t**-i(**t***-!lf***il.***t***t**.*-**«***f*it***t**A***)llt1Ht*lt 

1S20 CLOSE 1 

1830 OPEN "R", 1 ,F» 

1940 PPim "ENTER THE NAME OF THE FILE TO BE CQPIED TO"? 

1S50 INPUT Fl* 

ISiO OPEN "R",2,F1*,0 

1570 FIELL 1,12G A3 Z»* 

ISflO PIELB 7,:28 AS ZZ» 

IB^O FOR K-1 TO LDP CI) 

liJOO QET 1,K 

If 10 LSET Z3*=I1» 

1920 PUT 2,K 

1930 NEXT K 

19A0 CLOSE 1,2 

I'jso ensijs Aho 'pile opem and define 

19 to RETURN 

1970 REM l|i!(|:t***tit*>l'^***t**4:t*t ilitf ilit*ttit!t:l<ii*!t»*it:l<*it^it«*4<'{itii*«1< 

19e(:i REM CLOSE OUT fiCCOUNTS 

1990 REM **1«I»*«'«**»r***»:*#««l(*«*Ji»**tt*«!**it****«!«t**:t*t****;«!|( 

ZCttO PRINT '■*«*** CLOSE OUT ACCOUIIl S Jtt»**" 

2010 PRINT "ftRE VOU CERTAIN THAT VOU WANT TO CLOSE THE flCCOUNVS IV OR N> ■ 

20^0 INPUT Al* 

2030 IF LEFT*<A1 + , 1)<:>-''V THEH 2540 

2040 PRIHT "PQSITION PAPER NOW"; 

20S0 INPUT Al* 

20AO LPRINT " " 

2070 LPftlNI " " 

ZCaO LPRINT X* 

2090 LPRINT ■■ " 

2100 LPRINT TABES) ; ■■flCCOUNrS CLDSEIJ " ! D*4 

2110 LPRINT " ■' 

2120 LPRINT "ACCOUNT"! TAB (12> ; "MAME" ; TAB <3B) j "LIMIT" s TAB <4fc) ;" BALANCE" ( 

2130 LPRINT TABtSS) ; "PAVMENT" 

2140 LPRINT " " 

2150 FOR Is^l TO HS 

2160 Cl=l 

2170 k;-R(I> 

2180 QOSUB S90 'FILE READ-MASTER RECORD 

2190 K=N 

2200 GDSU6 5'?0 'FILE READ-TRANSACTION RECORD 

2210 FDR J-1 TO n 

2220 IF T»{J) = " " THEN 22SCf 

Z230 IF TS(J)p"p" THt£N P0=PO+CVS (Tit ( J ) > 

2240 IF T»(J>="C" THEN CO=C0+CWS < T 1 * < .7 > ) 

22S0 LSET T«<J J =" " 

2260 LSET Tl»(J>=Ml;3*(0) 

2270 NEXT J 

2280 C1=C1+] 

2290 IF Cl>=3 THEN LSET N«=MkI*(0) 

2300 IF Cl>2 THEN LSET P*=M»:i*(0» 



2310 QOSUB 670 'FILE WRlTE-BLttNK TRANS R[£CnRD 

3320 IF N'Ai THEN 7^1 QO 

?ZZO K=R ( F ■' 

2340 GOSUe 5'^0 'FILE ftErtU-MAS FER HtXORD TO UPDATE 

23S0 Ti"i=C0-PO+CVSCE!*i 

2ZM GOSUB :?560 'COMPUTE PAVMENT 

2370 L=CV:(L») 

23ES0 LPRINT A%; THBtS) ; C* ( 1 > } TAB (oO) ;L.; TAB(3A) ;CVS(B*> j TAB (44) 5 CVI (D*) 

'^390 LPRINT TAB iSi S "CHARGES " ; CO? TAB (20> i "F AYMEIM rs ";POj 

r4(.iC> LPRINT TftI?<36>;T0fTAe(44);DiTAB(33) j 

2410 C0=0 

2420 P0"0 

2430 LSET i;*=t1KS* < TO ) 

2440 LSET U*ri>9* 

2450 LSET DS=MKI«(D> 

24Af> RDSIJB A70 'FILE WRITE -MASTER RECOSD 

2470 X3*="" 

2400 IF i;2=l OR TO.sL THEN K3*>="*»*f 

2490 LPRIMT HZ* 

ESOO LPRINT " ■' 

251 C> 10=0 

2520 L=CV1(L*1 

SHS-J NEXT I 

2S40 RETLiRM 

5530 REt^ i|iti|.*t**)|<*!t*!|<*4*+!i + i|. + *»*i + + T* + H. + *t**t*******t»i* + >>t*i('** 

2560 REM CUtlPLlTE PAYtlENT 

2S70 REH lll»ll*t*lHltt****tlt***lt**tll*t**IHIt***ll******t*i**ll*ll.***** 

2380 REM INTEREST COMPUTSTIONS CAN Bn HERE 

2S<?0 n=. 1*T0 

2400 D=(]NT(D*lO0) ) /lOO 

2610 D=D-hDJ-PO 

3630 IF IKO THEN D=C> 

2b:i0 C2=0 

2640 IF PO<Dl THEN C2d1 

2650 RETtJRN 

RUN ■r'iCCTF'RNT 

ENTtR TDIIAT'S OflTE? 02/20/60 

ENTER ACCOUMTS flECEIVfiBLE f ILE NPlMET ftCCOUNTS 

THE FOLLOUINE OPTIONS AHE AWAILflBLE! 

l,.ACCOUMT LIST (WITH RECOfiO NUMBERS3 
2, .COPY FILE 

3,.rtt)NTHLV STl^TEMENT PREPARATION 
4.. MONTHLY CLOSE-OUT OF ftCCOUNTS 

ENTER THE OPTION DESIRED? > 
Hliit^K ACCOUNT LIST I**** 

NBR ACCOUNT REC * 

1 mil 2 

2 22222 4 

DO YDU WISH TU CONTINUE (V OR N)T Y 
ENTER THE OPTION DEGIREDT 2 

ENTER THE NAME OF THE FILE TO BE COPIED TO? ftCCTEAVE 
DO YOU WISH TD CONTINUE (V OR N)? M 
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PF50CESSIMC COMPLETE 






RUN -ftCCTpfiNT' 

Emik TODAY'S DATE? 02/2B/BO 

ENTtR I^CCOUNTSJ RKCKIVASUE KILE MAMET fiCCOUNTS 

THE FOLLOUING OrriONG ARE AWfilLABLE! 

L.ACtDUNT LIST (UITH RECDWl NUMBERS) 
a.. copy FILE 

3..M0NTHLr ST(*TEMENT PREFARATTON 
4-. MONTHLY t:HJ!je:-QUT Of ACCOUNTS 

ENTER THE OPTTON DE:SII%En7 S 

***** fiCCOUNT PRINT ***** 

EUTER THE EUe DATE FDft PAYMENTS'? M^3l/S0 

ENTER MESSAGE FOR ALL Ar;i;UUNTE 

? STOP :N to EEC OUK ITS FUR THE ENTIRE FAttruv - NOMTH END S^LE! 

ENTER MESSAGE FOR OWERnUE ACCOUNTS 

? PERMAPS TDU UWC nVERLOOKECl TOUR FEBRItJARY PAYMENT - IT'S nWE^niJE 

ENTER MESSAGE fOR ACCOUNTS OUER THEIR CREOIT LIMIT 

7 YOUR ACCOLJNI IS NOU QUER ITS LIMIT - FLEflSE CALL DUR CREUIT Mf^NAGER 

POSITION FAPEfi WOU 



SCCOUNT ♦:isiii 

JOHN ll, JONES 

9415 TOLLHOUSE ROAK 

SYRACUSE NY JJ^OJ 

STATEMENT lATEl Oa/SB/BO 



PREVIOUS BALANCE t AS OFt NEW ACCT 

CHARGES PflVMEMTB 

12.34 

CREDIT LJMITl 150O 

NEW BALANUE! 26 1 23 inTMENT DUE; ',>,B2 03/31/BO 

)»!|<«*t^M*4<****^*«***^***H<***i4i+iti(***4:***4<4<****>k>^******)tiil'*** 
STOP IN TO SEE OUTFITS FOh THE ENrKiK FAMILY - MlihTTH END SALE] 
***i|i******)::IE*****ili¥***iKX«***i|(****X«**X;lc**i|(*it^:^****):it*i^t*««I* 

ACCOUNT *i 22222 
JANE Et DOE 

113 HARRISON WAV ftPT 4 
MERCED tA 9S340 



STATEMENT EATEt 02/2S/80 
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PREVIOUS BflLflNCE: AS OF ! NEW AOCT 



CHARGES PflVMENTS 
14.JI3 
30,13 



CREDIT LIMIT! 1500 

NEW BAI-fiMCE! IS, A? PA'(HENT due: O 03/31/HO 

STOP IN TO SEE OUTHTS FOR THE ENTIRE FftHILV - MONTH END SrtLE! 



JIO fOU tJIBH TO CONTINUE (V OR W)? M 



PROCESSINQ COMPLETE 



mEMi m 440 
OK 



RUN 'ACCTPRNT" 

ENTEFl TODAY'S DATE? 02/2B/80 

ENTER ACCOUNTS RECESVAP1.E FILE NAME? ACCOUNTS 

THE FOLLOUIND OPTIONS ARE AUAILABLE! 

1,, ACCOUNT LIST <WITH RECORD NUMBERS) 
2. ,COPY FILE 

3.,HDN7HLy STATEMENT PREPARATJDN 
4..M0NTHL1t' CLOSE-OUT OF ACCOUNTS 

ENTER THE OPTION DESIRECl? 4 

***** CLOSE Ot^T ftCCUUNTS ***** 

rtRE rOJ CERTAIN THAT VOU WANT TO CLOSE THE ACCOUNTS (Y (IR N)7 V 

POSITION PAPEfi NOW? 

* 1 4:^ ^ ** * «I * *1[# * t* « It !tt )II * * It!* * * *** 1 1 * ** * f tHiHt * * * ilti^*l * Kittlirit Jtl):* * ** 

ACCDUWrS CLOSEIl 02/2S/BO 

ACCOUNT NAME LIMIT Bl^LAHCE F-AYMENT 

mil JOHN D. JONES 1200 O 

CHARGES l'a,23 PAYMENTS 2B,23 2.63 

22222 JANE £. DOE ISOO O 

CHARSEB 30^12 PAYMENTS 14.43 lS.i9 

DO rau WISH to contiwue <y or n)? n 

PROCESSING COMPLETE 

BREAK IN 440 
OK 
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Breakeven Analysis— Basic 

Program Name: BREAK-t 

This program accepts cost iitid price information ft'om the Operator 
and produces a table describing a product's breakeven point and the cost 
breakdown for that level of production. 

Files Affecied: None 

S CLEAR 900 

10 REh SAWeO PrT BREAKl 

20 REH ■H.tttll.if.iti.t^ii.t^-kli.Hi PRDCES^SINIS AREA titt* :tm *llt 1 1i t J: t Ir** 

35 CLS 

30 PRINT 

40 PRINT "COHPUTES BREAKEVEN POINT" 

SO PRINT 

60 PRINT "ENTER F 1 >!£!> rOSTS "s 

70 IMPUT F 

aO PRIMT "ENTER UftRIABLE COSTS PER UNIT " ? 

90 INPUT y 

lOO PRINT "ENTER UWIT PRICE"; 

110 3NP0T P 

120 HEM ************* CALCULATE COSTS ************************* 

130 !i=V/KP-^1 

1A\> V1="V*D 

130 R=p*a 

160 C=Fi-(V*MJ 

170 U=C/S 

IB'I PRINT 

190 PRINT "*****»**************************" 

200 PRINT " fcjRESKEveW POINT" 

ZIO PRINT 

220 PRINT "BREAKEVEN QUfiNTITV ";TAB(25>!E! 

230 PRINT "BREAKEVEN REVENUES" ; TAB <24> ;"*",- R 

240 PRINT 

250 PRINT "FIXED i:0STB" ; TAB [ 15> ; "*" ; F 

260 PRINT "UfiRIABLE COSTS" S TAB ( tS> ;"«"; Vl 

270 PRINT " " 

200 PRINT "TCTAL COSTS" ; TAB ( 15> ;"«"; C 

290 PRINT 

300 PRINT "UNIT CiJbl " ; TAB ! 15) : "*" : IJ; "ErtCH" 

310 PRINT "****t*********************t*Ji***" 

■S2(t PRINT 

330 REM ****************** TERNIN^^TION POINT ****»«»«*«*«*»** 

340 STOP 



RUN -eiJEilK-l" 

CUMPUTES BRtAKEiVEN POINT 

ENTtR FIXED COSTS 'f ISOOo 

ENTER UftRIABLE COSTS PER UNIT ? .4 

ENTER UN:T price? .6 



BREAKEUEN aUftNTITr 
EREAKCryEN REUENUES 



30000 
t 30000 



FIXED COSTS » 10000 

yflRIfiSiLE COSTS * 2OOO0 



TDTflL COSTS 



UNIT CDST * .6 ErtCH 



ERe(^^ im 34o 

UK 



KftJOR SYMBOL TABLE 
I 



BREflK-l 



NftME 


. DEECRIPTIUN I 


C 


, TDTAL COSTS I 


F 


, FlJItn KOSTS I 


F 


. PRICE PER UNIT I 


R 


, gREAKEUEN OUANTITr I 


R 


. TOTrtl. REVFMUES I 


U 


. COST PER UNIT I 


V 


. VAftlftfiLE: COSTS PER UNIT I 


VI 


. TOT^L UflRIftBLE COSTS I 



FUNCTIONS USED 

] 

I NAME 

]— _^^ 

I TAB 



Breakeven Analysis— Extended 

Program Name: BREAK-2 

This program produces a cost/revenue schedule that includes infor- 
mation relating to a product's breakeven point, Tiie cost/revenue 
schedule is produced over the range of values specified during program 
initialization, including cost, revenue, profit and loss, and unit cost 
information for each of the produciion quantity levels specified. 

Piles Affected: None 
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5 CLElCIR 90C> 

10 REM SAVED AT BREftli^l 

30 REM **«*****«»*«******« PRDCESSINS AREA t*t ****** tt** *t* 

25 CLE 

30 PRINT 

40 PRINT "PRODUCES CDSTS/REWENUES SCHEDULE" 

SO PRINT 

60 PH3MT "FWTER FIXED COSTS "; 

70 INPUT F 

80 PRINT "ENTER UflRIABLE COSTS PER UWIT "; 

90 INPUT V 

lOO PRINT "ENTER UNIT PPICE"; 

ilO INPUT P 

)ZO PRINT "ENTER BE6INNINS aUANTITV FDR CQMPUTAT J QNS" ( 

irSCl INPUT ai 

140 PRtMT "ENTER ENDIMB EUWNTITV FQFi COMPUTfiT IONS" ; 

15C) INPUT 02 

160 PRINT "ENTER STEP INCREMENTS TO BE PRINTED"; 

170 INFIJT S 

180 PRINT 

190 PRINT 

200 PRINT "»«*J****»«»*«*******««t«it**«*«»»<***»*»t****ti|!**" 

210 PRINT 

220 PRINT " COST/PRICE s;::hedule" 

230 PRINT 

240 PRINT "aUANTITY";TAe(ll> s"C0ST"jTAE(20> i "REVENUE" j 

250 PRINT Ta6!30) J "PROFyLtiSS") TftBClO) ; "UNIT COST" 

260 PRINT 

270 REM *♦♦***********« GOLCULfiTE BREhKEVEN »******+*»***** 

260 »0=F/ IP-Wi 

290 RO=P*QO 

300 CO=F+IV*GO) 

310 REM ******»♦***«*** CflLCULflTION AND PRINTING l.OnP ******* 

320 FDR a~ai TO Q2 STEP S 

330 Wl=VtD 

340 n=P*Q 

3SO C=F+(y«0) 

3ir> U=C/Q 

370 ft^R-C 

380 IF Q<C30 THEN 430 'SKIPPING BREftKEVEN POINT 

390 PRINT " " 

40O PRINT C10sTAB(lO);CO;TAB<20) sRC>:TAB(30>;"eRefiKEVEN" 

410 PRINT " — " 

420 QO=9'?99<J999'?9'?9 

130 PRINT Q,-TAEiIO) ;C5TAB<20) ;RiTABC30) !ft!TABt40>sU 

440 NEXT D 

45") PRINT "«»***»*«*t»***»*******(i****«»t«****«*********" 

460 PRINT 

470 REM ***t*««»*«**tl|i**** TERMINATIUM POINT **************** 

4S0 STOP 



RUN "BREftK-S" 

PRODUCES CaSTS/REVENUES SCHEDULE 



ENTER FIXED COSTiJ ? 1000 

ENILR OflMflBLE CDSTS PER UMIT ? .40 

ENrtiR UNIT PRICE? l.iO 

EWTER BEGINNING QUANTITY FOft COhPUTATIDNB? JOO 

ENTER ENIiING OUANTJTY FOR COMPUTATIONS? 1000 

EMTEFi SIElP INCREMENTS TO BE FRINTEDT 100 
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COST/PFflCe SCHEDULE 



OUANTITY COST 



REVENUE PROF/LOSE UNIT COST 



100 


1040 


160 


-mo 


10. 4 


200 


1 080 


320 


-7A0 


S.4 


300 


1120 


^80 


-640 


3.733,S3 


400 


1160 


640 


-520 


2.9 


300 


1200 


aoo 


-400 


2.4 


ADO 


1240 


9<i0 


-2130 


2.066A7 


7O0 


12B0 


1120 


-160 


1.82857 


SOO 


1320 


1280 


-40 


1.6S 


B33.333 


i333,;i;3 


i;333.33 


eREflKEWEN 





S»0C1 1360 1440 BO 1,51111 

1000 1400 lAOO SOO 1.4 

BREAK IM 480 
OK 



MAJOR SYMBOL TABLE - PREflK-2 



C 

CD 

F 

P 

00 

01 

02 

R 

RO 

B 

U 

W 

Wl 



IIE3CRIPT10N 



PROFIT OR LOSS 

TOTftL COSTS 

BREftKEVEN COSTS 

FIXEB COSTS 

Uf4lT PRICE 

BREAKEVEN POINT 

BEGINNING QUANTITY 

ENDING aUANTITV 

TOTAL REUENUEE 

BREAK EVEN RE^KNUE 

STEP INCREMENT FUR PRINTING 

UNIT CCIiiT 

•JARIASLE COSTS 

TOTAL VARIABLE COSTS 



FUNCTTONS USED 
I NftME I 



I TAS 
I 



Fmancial Support Programs 

'J'he following two programs (RECORD and AMTS) are utility 
programs designed to assist in the creation and maintenance of the 
formatted files necessary ro support the other programs in this section. 
The latter programs are designed to provide simplified financiai analysis 
and reporting, as follows: 

1. Program INCOME produces an income statement. 

2. Program RALANCF. produces a balance sheet. 

3. Program FCOMP analyzes income and evpenses, 

4. Program BUDGET produces a cash flow analysis and budgets. 
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Ptogram Name- RECORD 

This program produces a sequential data file containing the name 
of each type of account necessary for financial recording. Account 
names are output to the file (in sorted ord<;r) with a type code that indi- 
cates the account's status as asset, liability, capital, income, or expense 
account. These account categories and names should be set up to corre- 
spond with your bookkeeping accounts so that comparable financial 
statements may be prepared, I'he file name that contains the account 
information is specified in response to program prompting. Multiple files 
can be maintained for special purposes. 

FUex Affected: File xxxxxx (created) 

5 CLEAR fWj 

10 R£M SAVED AT RECORD 

20 REM SIMPLIFIED FENftNCIAL RECORDING PRQGRftM 

ZO REM ^umitift************^**********-*****^***************-****'^* 

33 CLS 

40 M=25 

511 nitl T* (M) ,N«<M) , Tl* C5) 

liO T1»<11='"A" 

70 Tl*f2}="L" 

SO T1«13)="C" 

90 T1»(4)="I" 

ItitJ Ti*<5)="E" 

no PRINT 

120 PRIWT 

130 PRINT "WILl. THE ACCOUNT NAME INF'UT BE FROM A FILE (Y DR N>"; 

140 IhlF'UT AJJ 

150 IF LEFT»(At,1><i-"V" TMEM IHCi 

140 GOSUB 720 'OPEN AND pEfiP FILE 

170 GOTU 330 

ISO REM «**»!«»*»******« ENTER ACCOUNTS FROM KEVBOflRQ «**t*4l»p|l** 

1<?0 PRINT "ENTER THE ACCOUNTS IW THE Fni.lfJWIMG FORM:" 

2Cii> PRINT "ACtiOUNr TYPE.ftCCOUNT NPiME" 

210 PRINT 

220 PRINT "TYPES A=ASSETS, L=L J ABILITIES, C=CAPITSL. , I -INCOME, E^EXPEMSG" 

230 PRINT "E3(ftMPl.E INPUTS: A, CASH OR L.ACCaUNTS PAYABLE" 

240 PRINT 

2SO PRINT "ENTER INFCRMATIDN NOW - ENTER ONLY WILL TERMINATE IMPUT " 

2iO 1=1 

270 T*U)=" " 

2e0 INPUT T*(I) ,W«fr) 

290 IF T«(Ii=" " THEN 77-0 

300 1 = 1 + 1 

310 GOTO 270 

320 N:=I-i 

330 BEn t*IHt»*****«* PRINT ACCOUNT NAMES t***t**tt.*t*fM**t 

ZAO PRINT 

350 PRINT " It TYPE NAME" 

360 FDR 1=1 TD N 

370 PRINT I;TBB(i); T«<I> ;TAB(12) ;N*(r) 

330 NEXT 1 

390 REM *«»*»«*«**«**** ADDINH NEW ACCOUNTS J********** ** t 

400 PRINT 

flO PRINT "ARST THERE OTHER ACCnUNTS TO BE ADDED iV OR N}"; 

AZ]0 INPUT A* 

430 IF LEFT« tA», 1> <^>"Y" THEN H2Cl 

440 PRINT "ENTER MEW ACCOUNTS - JUST ENTER WHEM FIWISHED" 

4EO N'-N+l 

460 Tt(N>=" " 



"tyo INPUT T*(N),M*<N> 

480 IF T*(N)=" ■' THEN SOO 

*90 GOTO 450 

30O N=M-1 

310 GOTO 330 

5:?0 REM ****««*«**♦«*«* rrHflNGfNG EXISTING ftCCQLJNTS »*****«** 

530 PRINT "ARE THERE fiMV ITEMS TO CHANGE (V OR N)"; 

SilO INPUT fit 

550 IF LGFT*<A*, 11<>"V" THEN 590 

SiiO PRINT "ENTER THE « TO BE CHANGED FOLLOWED BV, THE NEW TYPE, NfiME" 

570 INPUT K, T* IK; ,N* (K) 

IS80 GOTO srsfj 

JiTO FlEM **^< + ** + **it**t SAVING ARRAY IN FILE **************** 

600 PRINT "ENTER FILE NAME FOPi STORING NAMES'' ; 

610 INPUT F* 

620 fiOSUB B3iO ■ OPEN AND WRITE FILE 

£i30 REh llllil*tl***)l*»*j|(l(4<* PRDQRAM TERniNATlDN *)li*.t*ilittM**M*tf* 

640 PRINT 

6S0 PRINT 

660 PRINT "PRDCESEjINQ COMPLETE" 

670 PRINT 

aBO STOP 

A=JO RFM ******««**i(t**«*«**«*t«*««*****t*i«*!tt*«*******i|i*j(**»i( 

700 REN SUBRnUTINES FDLLOW 

710 REM »t*tfn**t*f/tt**tt»*tflltif*>HHf**fMll.**'lntlHl*t*li*t»tt**tll»'ll! 

730 REN »*«*):*«*«****1l DFEM ANLl INPLII NAME FILE *******»««»*« 

730 PRINT "ENTER THE INPUT FILE NAME"; 

740 INPUT F* 

750 OPEN " I", I ,F« 

760 INPUT#1,N 

77(> FOR 1=1 TO M 

7BO INPUTSl, Tt (1 ) ,N«n) 

770 NE:<r 1 

000 Ft="" 

eio CLOSE J 

1320 RETURN 

330 RFM *****«***«*«* OPEN AND WRITE TO FILE ****»*»**«»»« **«« 

S40 PPEN "0'-,T,F* 

B50 PRJMT *tZ,N 

SAO FDR J=l TO 5 

B70 FDR 1=1 TO N 

880 IF T1«(J>=T«<I> THEN PRINT#2,Tt (I) ; ", " jN*(I> 

!190 NEXT r 

900 NEXT J 

9IO CLOSE 2 

920 RETURN 



F^UN 'FJECORL" 



WILL THE flCEOUNT NAME IMPUT BE PRPM A FILE (r OR W>? N 
ENTER THE ACCOUNTS IN THE FOLLOUINU FBKMi 
ACCOUNT TVPErrtCCCHJNT N^ME 

TYPES ft^ASSETS, L=LIABILIT]ES rC=CAFITrtL t I=IMCnMEf£=£XPENSE 
EXAMPLE inputs: ArCdSH OR 1. , (ACCOUNTS PAVSIBLE 

ENTER INFDRMATIDN NOW - RETURN ONLY WILL TERmWATE INPUT 

? firCASH 

V (irSUPPLIES 
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7 L.ACtOLNTS PflYflELE 

r U. CAPITAL 

? 1 1 INCOME 

r E.RENT EXPENSE 

-? fpSUPF-LIES EXPENSE 

? E.TELEFHONE EXPENSE 



4 


rrPE 


NAME 


1. 


A 


CASH 


2 


A 


SUPPLIES 


3 


(\ 


ERUIPPrtEMT 


4 


L. 


fiCCOUNTS PrtVABLE 


S 


C 


UftPi [flL 


<i 


I 


INLOME 


7 


E 


RENT EXPENSE 


a 


E 


SUPPLIES EXPENinE 


9 


E 


TELEPHONE EXPENSE 



ARE THERE OTHER ACCnUHTS TO BE APDEU (Y I:IR N>F N 

ARE THERE AN/ ITEMS TO KHANGE (Y OR N)? Y 

ENTER THE ♦ TO BE CHANOED KULLUgt.Il Bfr THE NEU IVPE. NAME 

7 3»A(EaUIPMENT 

ARE THERE ANY ITEMS TO KHANCiE CY OK N)"? N 

ENTER fILE NAME FOR STORING NftMEST ACCTS 



PROCESSING COMPLETE 



BREAK IN AQO 
OK 



Program Name: AMTS 

This program enters dollar information that reflects the status of 
accounts. The information is entered in response to program prompting 
that is based upon entries in the specified account name input file 
(created by program RECORD). The information tan be data suitable 
for creating current financial statements, historical information for the 
preparation of comparative analyses, or future projections for the prepa- 
ration of biitlgets or cash flow forecasts. The file created to contain the 
data is specified during program execution. 

Files Affected: File xxxxxx (created) 

5 CLEAR 900 

10 REM SAVED AT flMTS 

2C REM SIMPLIFIED FINANCIAL FiECaRDIMR PROGRAM -• AMOLiWTS 

35 CLS 

30 DIM Ts<M) ,N*m) , A (M> 
iO PRINT 
70 PRINT 
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BCi BOSUB 400 'Oi-'EW AMU REftU NflrtES 

90 REM )lit««»«»i*t**t»****««**« ENTEK AMOUNTS »s*.t*4t**i*t***t** 

100 PRINT 

110 PRINT "EMlKFt flMOUNTJi F(1R THC rtCCOIJWTS SHOWht" 

120 PRINT 

l:;o FDR l^^l TD N 

140 PRINT T*<I);" " ! N* O > ; " "; 

ISO INPUT ft CI) 

liO NEXT I 

170 REM t****************** PRINT RESULTS ** t »*«***il(«*!*» t« 

laCi PRINT 

190 PRINT " # TVPE NAME" ; THE <3S1 ; "AMOUNT" 

20O FOft I-l TO N 

210 PRINT If TAB16) iT»(I)gTAB(l?>;N*( I J i TAB(3S> ;A(I) 

220 NEXT I 

230 FfEM »***»»*****» CHANGING HXiaTING flCCOUNTa I********** 

240 PRIMT "flFiE THERE ANY ITEMS TO CHftNBE (¥ OR N)"i 

230 INPUT fl» 

260 IF LEFT* !fl*,l )<>■■¥" THEN 300 

270 PRINT "ENTER THE REFERENCE * TOL LOWED BV , THE NEW AMOUNT" 

280 INPUT K.ftCk* 

290 GOTCi ;;40 

WO REtl ♦***♦*#***»**** SAVrNH flRRAV IN FILE ************** 

;ilO PRINT "EWTEFi FILE: NfiME FOR STORIMB AMDUNTS"; 

320 INPUT Ft 

330 GDBUB SIO -OPEN AND URITFI FILE 

340 REM It****************** PROBRftM TERMIWfhTIGM ************* 

3S<) PRINT 

3iO PRINT 

570 PRINT "PROCESS I NQ COMPLETE" 

380 PRIMT 

390 51QP 

400 RKh **»t*iiiA»**i«***'t*** OPtN AKin READ NAne File ********* 

410 PRIMT "ENTER THE NAME OF THE INPUT NAME FILE"; 

420 INPUT F« 

430 OPEN "I", l,Ft 

440 INPUT«1,M 

450 FDR 1=1 TO N 

460 1NPUT«1,T*(I1,N*(I) 

470 NEXT I 

480 F«="" 

490 CLOSE 1 

SOO RETURN 

510 REM ******* «*«*<<*««* OPEN AND WRITE TO FILE *ili*«*******»*« 

520 OPEN "0",2,F« 

530 PRINT»l',Nf 

540 FOtt 1=1 TO H 

SSO PF*INT#2,S ( 1 >} 

560 NEXT I 

570 cujse 2 
SSO RETURN 
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RIW 'AKTS" 



eWTER THE NftME DF THE INPUT NAME FILEt ACCTB 

EMTER (AMOUNTS FOK THE ACCOUNTS SHOWN 

A I • ..CASH... iT 1950 

A. . . iSUFPLIESi . ..7 50 

A...,EUUlPhi;Ni....'' lOOO 

L. . . .ftCCDUNTS PAYABLE, ,..? 400 

C. . . .CAPITAL, , . .7 1800 

I. , . .INCUME. , . ,? 12S0 



E. , . .RENT 


EXPENSE, , . .1 250 




E. , , .QUPPI 


lES EXPENSE.. . ,r 100 




E. . . .TEJ.£f'HONE EXPENSE...,? JOO 




-t TYPE 


NAME 


AMOUNT 


1 t, 


CASH 


IPSO 


2 A 


SLFFLieS 


ZO 


3 A 


emin^MtwT 


1000 


A L 


SCLOUNTS fATAELE 


400 


S C 


CAPITAL 


IBOO 


A I 


INCOME 


1250 


7 E 


F:ENT EXPENSE 


2S0 


e E 


SUPPLIES EXPENSE 


100 


9 E 


TELEPHONE EXPENSE 


100 


ARE THERE 


ANY ITEMS TO CHANGE (V 


DR N)? N 


ENTER FILE 


NAME FOR STORING AMOUNTET JAN81 



PROCESSING COMPLETE 



BREAK IN 390 
OK 



MAJOR SYMBOL TABLE 

I 

I NAME 



RECORD AND flMTS 



FUWCTIQNS USED 



At 
A< i 
Fi 
I 
J 

^ 

¥, 
N 

T«C> 



DESCRIPTION 



TEMP ANSWER VARIABLE 

AriOUNT ARRAY 

FILE NAME 

JNIJEX ANIl ARRAY POINTER 

INDEX AND ARRAY POINTER 

REFERENCE TO THE NUMBER TO CHAWGE 

MAXIMUM NUMfttk OF ACCOUNTS 

NUMBER OP ACCOUMTS 

ACCOUNT NAME ARfVAY 

ACCOUNT TYPE ARRAY 





NAME 












TAB 






GUSUE 






RETURN 






OPEN 






PRINT* 






INPUTt 






CLOSE 






DIM 
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Income Statement Preparation 

Program Name: INCOME 

This program produces an income statement from information 
entered at the keyboard a,nd from the input files spedfied during the 
program's execution. It does not require the processing of a com- 
puteri/.ed bookkeeping system but does require tharaecounc name and 
amount information be available in an input file. The programs KKCOKD 
and AMTS provide files that are compatible with this program. 

Files Affected: None 



S HLEAR 900 

10 KEtl BftWED AT tNCftMF 

20 REN PRODUCES tNCOME' STdTKMSHT 

30 REM *^l^l1^ti^*1^%*tt1^i^t%*^l^t*'l^i^ti^'^%»■l^*^^t**■^•lt**%•|^'|^l^■^■J^%*■^•|^^^■i■**'t.t■|(■||■^l 

33 CL3 

40 V\~'if, 

SO IHI-t T» (M),N«(li) , A(M) ,T1» (3> 

60 Tl*tl>="INCOMe" 

70 Tl*(2)=c"i:xpENSES" 

Bf> PRINT "eNTER THE NAME OF THE flCCDUNTS NOME FILE"; 

90 IWPUT F* 

JW) PRrNr "(-TITER THE NAME OF THE ACCDUMT F3LE"! 

1 to INPUT Fl» 

120 GOSUS 2i0 'CPRM AND READ FILKS 

130 CaSUB 340 'PERFORM PRDCE^SSINB 

140 REM «»*«t«*t*f«« FORMAT TgRHINftTION PCJSNT **t *********** **t 

ISO PRINT 

j/.il f=-FiIMT 

170 PRlrjT "PROCFTSSINE ("DMPLETE" 

laCi FRIKT 

i<?o CLOSE 1,:: 

SCiO STOP 

210 REM *♦*****»**♦*** OPEW AND READ FILES ***«**»«*«****«*** 

220 OPEN '■ i" , I , Fi 

230 OPEN "I",2,F1« 

240 INPUT »t,N 

250 IWPUT4I2,N1 

260 IF N-NL THEN 290 

770 PRINT "Files; (*re rtnr cuMr-ATihiLE" 

2al.^ QOTD ISO 

ItO FOR r=I TO N 

300 INPUT#J,T*C1) ,N*(n 

310 INPUltt2,fl(I ) 

320 tiE.'X.l 1 

330 RETURN 

340 REM *t«***t+t*****tf INCOME STfiTEMENT t*ltiftiHH(*ift**iffi*.it* 

3SO PRINT "FhlT!;ft THE ftSPrftF PERIOD " ; 

360 INPUT D4* 

370 PRtMT 

330 PRINT "POSITION PAPER NOW - PRESS EMTER WHEN READY"; 

S-JO INPUT A* 

40O LPRIN1 

410 LPRirVT TflB(30)!F» 

420 LPRINT TAP (301 ; "INCOME STATEMENT" 

430 LPRINT TflBf30);D4t 
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+40 LPRINt" " " 

4S0 LPRrNT '■ " 

460 FOR 1=1 TD N 

47v Ih- 'ft C J ) = '"!" THEN 4W 

480 MEKT T 

490 Kl-I 

SOO J=l 

SIO PRtMT TAB£5) ;T1*<J> 

n70 FOR I=Ki TO N 

5:» IF T*(I)="K" AND J=l THEN QDTO 580 

540 LPRINT TAB(10>;N*<I>;TAE(40>! 

550 LPRJNT flt3> 

570 NEXT I 

5S0 LPRINT TfiBi3B>;"— ■ " 

B'?0 LPHilNT rflBib);! "ILirSL " ; Tl« t J ) s TflR (TiO) j ftl 

too LPRINT ■■ " 

610 IF J=l THEM H2™A2+01 

i20 IF 3^2 THEN A;'=**2-All 

650 h;i--==i 

tiO IF J<;=2 THEM 515 

670 L.PRINT TftB(4e);" " 

tkSO LPRINT TflB(5);"NET IWCOMt (LOSS) " i THB (BO! ; 

670 IF 02>0 THEN LPRINT flS 

700 [F A2<0 ■(HEN LPRINT '■<";A2j")" 

710 LPRINT TAB (403 ; "===============" 

720 RETURN 



RUN 'INCOME- 
ENTER THE NAME 1)1- THE flCCOUNTB NAME FILE? ACCTS 
ENTCR THE Nl^lME OF THE AMOUNT FILET J^NSl 
ENTFR IHE REPOKT TERIDU ? JANUARY 19B1 

POSITION PftPER NOW - PRESS RETURN UHEN READY? 





rtCCTS 

INCOME 

JflMIJARV 


STSTEMENT 




INCOMC 

INCOME 




IZSO 




TOTAL INCOME 




12H0 


EXPENSES 

F:ENT expense 
SUPPLIES EXPENSE 
TELEPHONE EXPENSE 




250 
JOO 

100 




TOTAL EXPENSES 




^SO 



NET INCOME (LOSS) 



PRDCESS1NJ5 LOMPLErc 



BREAK IN 200 
OK 
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MrtJOR 

1 ■--. 

1 NAME 

I 

I 
I 
I 
I 
I 
I 
I 
I 
I 
I 

r 
I 
I 
I 
I 
I 
I- 



SYHBOL TribLE - INCOME 
», »ESCR1PTI0*< 



FtJMCTIOWS USED 



AC) 

At 

A2 

f* 

Fl» 
I 

J 

fCi 

M 

N 

N*(> 

Nl 

T*(> 

Tito 



TEhP ANSUER l^ARIABLC 

AMOUNT ARRAT 

TOTAL WflRIABLE 

NET iMCOHE 

REPORT PERIQE 

NAME DF ACCOUNT NAME FILE 

MAME Of AMOUNT FILE 

INDEX AMD ARRAY POINTt:R 

POSITION OARIABLE I'^INCOME 2=EXPENSES 

INDEX START POINT 

MAXIMWH ARRAY Silt 

NUMBER OF ACCOUNT «i^ME3 

(ACCOUNT NAME ARRAY 

NUMBER OF AMPUNTS MECORDED 

(ICCOUNT TYPE ARRAY 

ACCOUNT TYPE NAME ftRRAY 



MAHE 



DIM 

CLOSE 

OPEN 

GDSUB 

RETURN 

INPUTt 

TAB 



Balance Sheet Preparation 

Program Name.- BALANCE 

This program produces a balance sheet from information entered at 
the keyboard and from the input files specified during the prc^ram's 
execution. It does not require the operation of a fully computerized 
bookkeeping system but does require that an account name file and 
amount information in an input file be available. The programs RECORD 
and AMIS provide the files that are necessary for the operation of this 
program, 

Files Affected; None 

5 CLEAR 900 

10 REM SAVED AT EALfllMCE 

20 REM FRDDUCEK BALANCE SHEET 

35 CLS 

40 M=Za 

3C> DIM T*(M),M*<Mi ,A(M) ,Tl*(S) 

40 Tlta)-"ASSETE" 

70 T1*(2)''"LIABILITIES" 

80 Tlt£->="CftPITAL" 

90 PRINT "ENTER THE NAME OF YHE ACCOUNTS NAME FILE"; 

lOO INPUT F* 

110 PRINT "ENTIfR THt^ NAME OF THF AMOUNT FILE"; 

IZtJ INPUT Fl» 

130 PRINT 

14-0 PR-tNT "ENTER THE NET INCOME DR LOSS 1-1 FUft THE Pt;RlDO"; 

ISa JWPUT N9 
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160 (jtlSUB 7^0 OPEN AND REAU FILES 

170 HdSUB SaO PERFORM PROCESSIMS 

laO REM *Jf»*+*«tlt*t** PROGRAM TERMINflTlOM POINT * t ******* ****** 

l-JO PRINT 

SCO PRINT 

210 PRINT "PRDCEaSI.NG COMPLETE" 

2?0 PRINT 

230 CLOSE I , a 

340 STOP 

250 REM *****«*««»******** OPEN AND READ FILES ***** ********** 

2(^0 DPEN" I", 1,F* 

270 CIPEN "I",S,Fi* 

2ao iNPUTitijM 

2^0 INPU7#2,N1 

300 IF iV=Nl meiN 330 

SlO PRINT "FILES t=rRE NOT COMPATIBLE" 

3 So BDTO 1S>0 

330 FOR 1=1 TO N 

3-l»0 INPUTttl,T*(I ) , N«<13 

350 IMPI.JT#Z, A( I) 

360 WEXT I 

370 r.TTTURN 

3:S0 REM ***»:*«:(***** RALANH!? 'JHEFT ill*«it:ll**it****1[*4::(******** t* 

390 PRIWT "ENTER THE REPORT DATE " ? 

4O0 INrUT Drt* 

410 PRINT 

420 PRir.JT "PGBJTIDN P*1PeR NOW - PRESS ENIER WHEN REmEV"? 

47:0 INPUT A* 

■(40 LPRIMT " " 

430 LPRIMT TflFKSOljF* 

4iO LPRlMT lABtSol; "feALrtNCF SHEET" 

<»70 LPRINT TfiB<30:(D4-E 

480 lpr:nt " " 

490 LPRINT " ■' 

SOO 7=30 

S:0 KI"1 

520 T*(0)=T*<1) 

SSO FBR J=l TD 3 

StO IF J=] THEW LPRIMT T AB (30) j Tl* ( 1 ) 

5S0 IF .]<>2 THEN S90 

SiO T=40 

570 LPRINT TflB(25>; "LIflBILITlEE AND CflPITflL" 

5S0 ft 2=0 

590 LPRINT " " 

600 LPRINT TflBsE) iTlt(J> 

610 IF Js>3 THEN 640 

6'.;0 LPRIhtT TA&<10);"MET INCOME/LOSS <-> " i TAB iT> ;N9 

6J»0 FUR I=K1 Tt) N 

650 IF Tt(I)<>Tt.((/) THEW 710 

660 flO- « < I > 

670 LPRIMT TfiBOO) iWS< I >;T«Bi4O>|rt0 

680 A 1=^1+^0 

i^O AO=i:j 

700 NEXT I 

710 LPRINT TAB<T-'2) i ""■ " 

720 LPRINT TAB (5 >( "TOTAL "; Tl* ( J> ; ; TAB (50) ; Al 

730 IF J=l THEN LPRINT TfiB C4a> ; ""!«=====•======!=====" 

740 K1=T 
7E0 LPRINT " '■ 
760 fl2»A2+AJ. 
770 A 1=0 

7g<> T*(0)=r*tiJ 

790 NEXT J 
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BOO LPRIJMT TAB(4S>5"-^ " 

aio LPRINT TfiD(S) s "TOTAU UlfttilUITIES AND CAPITAL" i TAD (30J i A2 
S2(i LPRIN1 TASf-tS) ; "======-"===-^-^=^=" 

S30 KETURN 



KLIN -BALflMCE- 

ENTCF: THE NflME OF THE ACCOUNTS NftHE FILET ACETS 

ENTER THE NAME DF THE AMOUNT fILE? JAMS J 

ENTEK THE NET INCOME OR LOSS (-1 FOU THE PERIOli? SOO 
ENTfcft THE REPORT DATE ? JAHUl^Rr 31 19B1 

POSITION ^'APER NOU - PRESS RETURN WHEN READY'' 



rtCCTS 
BALANCE SHEET 



ASSETS 

CASH 

SUPPLIES 

EOUIPMENT 

TOTAL ASSETS 



1950 

SO 

1000 



LIABILITIES 

ACCOUNTS PAYABLE 



TOTAL LIABILITIES 



LIfteiLITieS ANB CAPITAL 
400 



WO 



CAPITAL 

NET INC0HE/L0S3C-) 
CAPITAL 

TOTAL CI^F-ITAL 



800 

laoo 



TOTAL LIABILITIES AMO CAPITAL 



PROCESS I NE COMPLETE 



BREAK IN 2-110 
OK 



80 
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MAJOF! 


SYMBOL TrtfiLE - BALANCE 


rUNETIONS 


USED 




NAhE 


.. DESCRIPTION I 


r NAME 
r — i- 






M 


. . TEMP ANSUER VARIABLE I 


r DIM 






ftt > 


.. AMOl^MT SmflV I 


1 CLOSE 






M 


.. AMOUNT FOR PHINTINi; I 


r OPEN 






Al 


.. TOTAL Vftftlrt&Lb-; I 


I QUSUB 






^3 


, , TOTAL VfllHABLE I 


1 RETURN 






1^4* 


,. PATE or REPORT I 


I INF'UT# 






F« 


. . FILE WfihE I 


I TAB 






Fl* 


, . MAME 111- rthOUNI FILE I 


1 


J 




I 


, . INDEX AND ARRrtY POINTER I 








J 


, . INDEX AND ARRAY POINTER I 








M 


.. INDEX yifiKI POINT I 








« 


.. MAXIMUM ARRAY SIZE I 








N 


. . NUMBER OF ACCOUNT NAhtES I 








N»C) 


, , ACCOUNT NAME ARRAY I 








Nl 


, . NUMBER or AMOUt^TB IN FILE I 








N9 


. . WET lMCOMt:/LOSS I 








TtO 


.. ACCOUNT TYPE ARRAY I 








Tito 


,, ACCOUNT TYK-E NAME ARUAY I 






I^ 




— - — ■ X 







Cash Flow and Budget Analysis 

Program Name: BUDGET 

This program produces cither a cash flow forecast or a budget fore- 
cast for future time periods. It docs not require the operation of a fully 
automated bookkeeping system bur does require that amoimt infor- 
mation for each aceounr be available in an input file. The programs 
RECORD and AMTS produce the files neces<;ar>' for the operation of 
this program, AJl other information is entered in response to program 
prompting. 

Piles Affected: None 

a LLtiflR 9(Xi 

lO REM SAVED AT BUDQET 

20 REM CASH FLOW AMD BUDGET SWALYdlS PROGRflM 

30 REM *xt1Klt»^<ti!!t<lf*tt<t)tt*tit)i:**Xf<Hx**xsit<inHit»i(Mit*Kt<(>ttt*itttt<t)itt 

35 CLB 

40 T=10 

50 M-25 

hO PRINT '■HOW MftNV flCC-QUNTTNG PERIODS (FILES) SHALL I INCLUnE"; 

70 INPUT l>I<? 

SO DIM (iS<N'?) 

90 PRINT "ENTEft THE 3 CHARACTER ABBREUlfiTlDN FOR EACH PERIDO" 

100 FOR 1=1 TO N9 

110 IMPUT P4(I1 

ISO NEXT ] 

130 PRIMT "ENTER THE FILE NAHP5" 
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i-Ki DIM Tt(M>.Wi|i(11>, A(H,N9-<-lJ , Tl* (5> , Fl* OJ?* , Mi (■?) , M (N9+i ) ,T2(N9 + 1J 

J 50 FOR 1 = 1 TQ Nf 

160 INPUT F14(I) 

170 NEXT I 

IBO Tlsa)="ASSET£i" 

190 Tl*(2)='l IrtBTL ITIES" 

200 T1»(3)»"CAPITAL" 

ZIO T1»(4)=" INCOME" 

220 T14(fi)="EXPFMSIcn" 

230 PRIM") "ENTER THE NMME DF THE rtCCOUMTS MflME FILE"! 

240 INPUT FS 

2SO PRINT 

260 BtJSUB 350 'OPEN ANI> f^Efil) FILES 

270 GOSUB 530 'PERFflRM PROrFBSINB 

2eo REM ***jt*****Kt»* PROGRAM Tt.RMiNrt I'lOM PCjINI »* Hct****** *!(*t 

29i> PRINT 

300 PRIUT 

31 O PRINT "PROCESSING COMPLETE" 

32(5 PRINT 

330 CLOSE 1,2 

340 STOP 

350 REM *«***« + *****5K*»if OPEN ANB READ FILES «*««*»*«*#**«»« 

360 OPEN "I" , 1,F* 

370 INF1.IT#),N 

3S0 FOR 1=2 TO N9+1 

390 OPEN "I" , I,FI*( J-1) 

400 nMPUT#i,Ni n-n 

41i3 IF Ns'NKl-l) THEN •i'iO 

420 PRINT "FILES ARE NOT CGMPfiTIEiLE" 

430 (3PT0 290 

440 NEXT 1 

450 FOft 1=1 TO N 

460 INPUT#i,T«a) ,N*in 

470 FOR J- I Tn N9 

400 INPUTItJ + UAdiJ* 

490 NEXT J 

500 NEXT I 

SIO RETURN 

[r,20 REM «»*♦********♦*** INCOME AND F5;PFNHE ANALYSIS *******»»« 

S:50 PRINT "ARE WE ANALV7iN6 CASH FLOWS OR iUDSETB (C OB B>"; 

S40 INPUT A» 

350 :F l\t.<>"C" THEN S80 

560 PR TNT "EMTFft INITIAL CAHH PHSTTinN"; 

570 INPUT C 

5B0 Ji"3 

590 T*<0)"T*(1> 

i,00 J=i 

4t0 FOR Kl=l TO H 

62t> IF TiiKlJOTtiO) THEN J"J-H 

630 T)vtO)-T»(Kl) 

4.40 IF J>J1 THEN GOTO 660 

630 NEXT K) 

660 PRINT 

i70 PRINT "POSITION PAPER NOW - PRESS ENTER WHEN READVj 

taO INPUT Z* 

690 LPRIMT " " 

7O0 REM tt***t*t»:*i$lt*t PRINT HEADINOS ******»»««******»** 

710 LPRINT TAB(30)sFS. 

730 LPRINT TAB(2Ej> ; 

730 IF A*="C" THEN LPRINT "CASH FLOW ANALVSIS" 

740 IF A«="8" THEN LPRINT "EUDGET ANALVSIS" 

7fi0 L POINT " " 

760 IF fl»="C" THEN LPRINT "INITIAL CflSI-l";C 

770 LPRINT " " 
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7S<i FOR 1=1 TO Hf 

790 LPRINT TAB<Tt (I-l>4.22);P«(n; 

goo NEXT I 

SJO l.PHINr " TOTftL flVERAGF" 

a2<:i LPRINT " " 

830 REM titifit*****^********** PRINTING LDQP #t*i(ittt****if*****t 

B40 FOR I-Kl TO M 

aSO IF T*<0)<:>T»(I > THEN 760 

8*0 LPRINT N* (I ) ; 

370 FOR 11=1 TD N9+ 1 

SBO IF Il<=Nf THEW ft ( I , NV+l ) =fl ( I , NV+1 ) +fi C I , I i J 

090 fl2 i i 1 ) =fl2 ( 1 1 ) +A ( I , 1 1 ) 

90>> LPftENT TfiB(Tlt (Ii-n+2(»5A£I, ID,' 

910 NEXT II 

<720 LPRINT TAB(T«< I 1-1 )+20) ; A tl ,W9 + 1)/N9 

930 A(i,N';+n=':i 

940 NEXT I 

950 REM *ll(*ir«**»«**«*l|l*l( PRINT EtIBTOTfiL LINES *««***»**«»**«* 

9*0 LPRINT TflBi2(:i) ; " 

770 LPRINT TftB^SJ; "SUBTOTAL "; 

990 FDR I 1=^1 TO WJH-J 

970 LPRINT TflB(T*< Il-l) -t-aO) ;ft2( IIJ ! 

ICiOO IF Jl = 3 THEN T2<Il>=A2tHJ 

1010 IP J 1-4 THEN T2CIl)-T2(n)-H^iIl> 

1020 IF 1KN9+1 THEN A2 I 1 1 ) =0 

1030 kEXT II 

1040 LFPINT TftB(T*(Il-l )+20} iA2tIl-tl/N'; 

iO50 A3(I1-1)=0 

lOdO LPRINT '■ ■■ 

1O70 J1=J1+1 

lOBO K1=I 

1090 T*<0)=T*(n 

llOO IF Jl<=4 THEN 530 

mo REM «**»«**»«**»*«*««»][ PRINT TOTAi *ilt*tt1l***<^1t*it^tt* 

1120 LPRINT TAB(20>5 "=!=i!=a=j.= =-=iia.===-=.====a.-=======-==^ii============== = 

1130 LPRINT TAB<5) i "TDTAL"! 

1140 FOR ILi^l TU N9+1 

I ISO LPRINT TABtT* (Il-l)+20> 5T2(I1> ; 

llhfj NEXT I 1 

)170 LPRINT TAB(T* (I1-1)+20)3T2<11-1* /N9 

1130 LPRINT " ■' 

1190 REM ************* PRINT CfiSH POSITION ^tttt************** 

1200 IF A%<l"C" THEN 1240 

1210 LPRINT "CASH POSITION - END"; 

1220 FOR I 1=1 TO NT 

1230 C=r,-i-T2 < 1 1 ) 

1240 LPRINT TAB(T«(I1-1)+20);C; 

12SO NEXT I 1 

1260 LPRINT ■' ■■ 

1270 LPRINT ■■ " 

12B0 LPRINT " '■ 

12«^0 RETURN 

RUN "EHJDeET" 

HOW HflNV ftCCOUNTlWU PERIODS (FILE!! StHftl.L I INCHlDEf 1 

ENTER THE 3 CHARACTER ABBREUIftTIDN FOR ErtCH PERIOD 

f JAN 

EKTER THE FILE NAMES 

T jflwai 

EMTER THE NAME OF THE ACCOUNTS NAME FILET ftCCTS 

ARE WE flNftLrZINU CASH FLOWS OR HtlftOETS (C tlR fij' C 
ENTEft JSJTiflL i:AyH K-0£il rlCiMy ^-100 

f'OGiTinN pflF-KR mm - rRtss reiurw uhen ready? 
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INTTIftL CftSH 2100 



IMCOHE 

SUBTOTAL 
RENT EXPENSE 

SUPPLIES expense: 

TELEPHONE expense: 
SUBTOTSL 





ACCTS 




CASH 


FLOU MALYStS 


JAN 


rOTftL 


AUERftGE 


1250 


1250 


1250 


1250 


1230 


1350 


230 


£50 


230 


100 


100 


100 


100 


100 


100 



430 



430 



TOTftL 
CftUH POSITION 



SOS 
END 2^00 



aoo 



800 



PRflCEESINR COMPLETE 



BREflK IN 340 





MftJOR SVMEOL TASLE - BUtfSET 




NAHE 


, . DESCRIPTION r 




A* 


, TYPE OF PRINT 1 




AO 


, AMOUNT ARRAY I 




A2(> 


4 SUBTDTrtL ARRAY I 




C 


. CASH POSITION I 




F* 


. Wrt«E OF ACCOUNT NrtME FILE 1 




Flt( ) 


. fiHKM OF FILE NAMES I 




I 


, INDEX AND ARRAY POINTER 1 




u 


, INDEX AND ARRAY POINTER I 




.1 


. INDEX AND ARRAY POINTER I 




Jl 


, POINTER TO STOP POSITION 1 




Kl 


. POINTER TD START POSITION I 




K 


. MAXIMUM ARRAY SIZE I 




N 


. NUMBER OF flCCflUNT NAMES I 




H«0 


. ACCOUNT tJAML ARKAY I 




Ml< J 


. numbe:r w ftMouNia iw the j' ili; i 




wy 


. NUMBER OF FERIDHS TD USE I 




p*(j 


, NAME DP Pf.HIOD ARRAY I 




T 


, NUMBER OF SPACES TO TAB 1 




T«() 


. flCtOUMT TYPE ARRAY I 




Tl*() 


, ACCOUNT TYPE - NAME AftRAV I 




T2(J 


, TOTAL ARRAY X 



FUNCTIONS USED 
1 NAME. 



DIM 

OPEN 

CLOSE 

GQEOH 
RETUfiN 
INPUT* 
TAB 
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Income and Expense Analysis 

Program Name: FCOMP 

This prc^am produces an income or expense analysis report that 
may be compared with reports for other periods and account averages. 
It docs not require the operation of a fully automated bookkeeping 
system but does require the availahility of account name and amount 
files that are produced by the RECIORD and AMTS programs. 

Files Affected: None 

5 C[..E^AR 900 

lli ftEM SAVED AT FCOMP 

20 REM INCQM1£ AND EXPENSE fltMALYSIS PROGRAM 

35 CLS 

40 T=10 

5D (1=2S 

(.0 PftINT "HOW MANV ACCOUNTING PERIODS (FILESJ SHALL I INCLUDE"; 

70 INPUT I\I9 

ao PRINT "EMIER THE FILE NftMES" 

90 DIM Ttfh' ,N* (Ml , fi (M,W9+1 >, 1 1* (S) .FI*<N'?) .Nl C^J , A2(N9+1) 

100 FDR r=J TD N9 ' 

llO IMPUT Fl«tl) 

120 NEXT I 

(30 Tl*< 1)=" ASSETS" 

1^0 Tl» (2)="LIABILITIES" 

150 Tl* f3)="CAPITAL" 

thO Tl« (4>="INr;OME" 

170 ti*(S) = "e;xpemses" 

iso print "enter the name of the accounts name file"; 

190 INPUT ft. 

200 PRINT 

310 GOEHB 3()t:i -QPEN AND ftGAt> FILES 

220 GDSUB 470 'I--ERFGRM PROCEEiSINC-i 

230 REM *****«*+ ****+it** PftOBRAM TERMINATjahl PDIWT it******** 

240 PRINT 

2SO PR7NT 

260 PRINT '■PROCESS INS COMPLETE ' 

270 PRINT 

2a0 CLOSE 1,2 

290 STOP 

700 REM »t**t.****M***iH OPEN AND READ FILES Xt*»:ttlHflt**li:*t»1l* 

310 OPEM "I", 1 ,F* 

320 INPUT* I, W 

330 FOR 1=2 TO N9tl 

340 OPEN "I ", ! ,F1* (I"I > 

350 INPUT#I,N1(I-1) 

360 IF N=NJ<I-1) THEN 390 

370 PRINT "FILES ARE NOT COMPATIBLE" 

3ao GOTO 240 

390 NEXT 1 

400 FOR 1=1 TO N 

410 IMPUT*J,T±1I) ,N*(I) 

420 FOR J=l TO N9 

430 INPUTMJ+1 ,A( I, J) 

440 NEXT J 

450 NEXT 1 

460 RETUFtN 
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■170 REM **««*»«*«**i**» INCOME AND EJiPENSE: ANflLVSia *********** 

4aO PRINT "DD vol.) WISH TO COIiPflRE INCOME DR EXPENSES (I OR E) " ; 

4?0 IMPUT fl9 

SOO Jl.=3 

ElO IF fl*-"E" THEW Jt==4 

510 FDn K1=J TO M 

Sad IF T*<K1>';VT*(0) tHEN J=J+1 

S(>0 T*(0>=Tt (Kl ) 

570 IF J>J1 THErj GOTO 590 

SaO NEXT Kl 

Si^O F-RINT 

AOiJ PRINT "POSITION FAPEtft NOW - PRESS ENTER WHEN READY"; . 

610 INPUT fl« 

t20 (.PRINT " " 

63<:p rem **♦*****;(»»***»«** f-prINT HF.ftDINRS tt* *t * ************ 

640 LPRINT TAB<30J!Flt 

iSO LPRINT TfiB(25)f "COMPARISON OF ";T1*(.I) 

hhO LPRINT TAB (30)^04* 

670 LPRINT " " 

iSO FOR J=l TO N"? 

t90 LPRINT TAB(T*n-i)+20) i "PER";Iq 

700 NEKT I 

710 LPRINT " TOTAL SVERftGE" 

720 LPRINT " " 

730 REM K*************** PRINT DEIfllL RECORDS *************** 

740 FOR l!=Kl TO N 

750 IF T*«i:pK>T«(IJ THEN S70 

760 Il^lM"? 

770 LPRIWT NS(I)( 

780 FOR 11 = 1 TCI N-^+L 

7?0 IF IK=N"f 7tiK.N rt < I , N^f 1 5 =A ( I , N9+1 ) +A ( I , I i J 

BOO Ai-UI )=A7(n)+fi(I, ID 

SlCl LPRINT TABfT* (Il-l>+2Cl);fl(I, ID ; 

830 LPRINT TftB(Tt tl l-li+20) ;fi(I,Nf+l ) /M9 

BAO A(1,N9+1)=0 

850 NEXT I 

860 REM !l(tit»Xttlt*tt»«t«i»>t PRINT TOTALS **t*!t1i'*t*********** 

670 LPRTNT TAB (JO) ; " 

860 LPRINT TfiBISJ ; "TOTAL "; 

SWJ for Il-I TO N9+1 

900 LPRINT TfiBITt (Il-t) -t-SOl i A2 (11 > ; 

^lO NE>!T It 

•?20 LPRINT ■rftU(T*<ll-l>+20>;fl2(Il-l >/N9 

930 XPRINT " " 

■y^O RETURN 

KJM •FCDMf- 

HOU MrtNV rtCCOUNlINB PERIODS (MLES BHflLL Z INCLIJIIE? 2 

HMTER THE FILE NAMES 

T DEceo 

? JANBl 

itHTER THE MflHE OF THE fiCCOUME NAME FILE? ACCTB 

DO YOU UI3H TO COMPARE INCOME O'R EXf-ENKES <I 1]R E)? I 

PUIJt I IDW PAPLR WOU - PrjEBS RETURN WHEN RLAOYT 

ACCTS 
COMPARIBON OF INCOME 

PER 1 PER 2 TOTAL flUERAGE 

IHCOME ISOO i;;SO 2?50 l3;s 

TOTftL 1500 12S0 37S0 1J75 



PROCESSING COMPUETE 



^RErt^ in 290 

OK 



HUM 'FCOMf-' 

HOW MAWY (ACCOUNTING PERIODS < FILES SHALL I INCLLpDE? 2 

ENTER THE FILE NAMES 

7 lELSO 

■? JAN81 

ENTER THE MflHE Ot" THE flCCOUNTS Ni!|ML FILE? ftCC TB 

nil YOU UJSH TO COMPARE INCOME OK EXPEMSSES (I OR £>? E 

POSITION FflPER NOW - PRESS RETURN UHEN RErtnr? 



RENT EXPENSE 

SUP>fLIES EXPENSE 
TELEPHONE EXPENSE 

IQTfiL 



flCCTS 








COMfl^RISON 


OF 


EXPENSES 




ER 1 f'CR 2 




TOTAL 


AVERftSE 


2S;0 250 




SOO 


250 


mo 100 




250 


12S 


60 100 




140 


SO 



460 



■150 



910 



43S 



PROCESSING COMPLETE 



BREAK IN 270 

01! 



MAJOR SYMBOL TABLE - FCOMP 


NAME 


, DESCRIPTIOW I 


A* 


. TEMP ANSWER VARIAOLE I 


At } 


, AMOOtJT ARRrtY I 


A2( > 


, TIDTAL ARRAY I 


F* 


. NAME OF AC(;OLINT NAME FILE I 


Fl«t) 


. ARRAV OF FILE NflHEB I 


I 


. INDEX AND ARRAY POINTER I 


11 


. INDEX AND ARRAY POINTER I 


J 


, INDEX ANB ARRAY PDlNTeR I 


Jl 


. POINTER TO UTOP PDSIIION I 


Kl 


. POINTER TO STPiRr POSITION I 


n 


. MAXIMUM ARfiAV aiKE I 


N 


. NUMpei* OF ACCOUNT NAMES I 


f(*0 


, ACCOUNT NAME- ARRAY I 


NIO 


, NUMBER OF AMOLTNTS IN THE FILE I 


N? 


. NUMBER OF PERIODS TO USE 1 


T 


. NUMBER OF SPACES TO TAB 1 


T*() 


. ACCOUNT TYPE ARRAY I 


ri^o 


. ACCOUNT TYPE - NAME ARRAY I 



FUNCTIUNB UEEQ 
I NAME I 



BIM 

OPEN 

CLOSE 

GOSUB 

RETURN 

INPUT* 

TAB 
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Forecasting 

TKis series of programs lias been provided to assist in the projection 
of business activity into future time periods. Since no one forecasting 
merhodology is suitable for all circumstances, several different method- 
ologies are represented in these programs. A detailed explanation of the 
theory and assumptions behind each of the approaches can easily be 
found in a wide variety of publications. This knowledge is unnecessary', 
however, for the actual execution of the programs contained in this 
book. Since these programs do not utilize any files, they are inde- 
pendent of all other systems. All required information is entered in re- 
sponse to program prompting. 



Least Squares Regression Forecasting 

Program Name: PC AST 1 

This program provides for the forecasting of business activity by 
means of the least squares regression mcthodolc^y. Historicil data of 
sales, demand, utilization, and the like, are entered for each past period 
in response to program prompting. From this information, the program 
projects the trend for all future periods specified. This data is plotted as 
a straight line on a graph. Both of the relevant parameters— A (the Y 
intercept) and B (the slope of the line)— are provided for those who arc 
mathematically inclined. The program also produces a table providing 
forecasts for all periods specified. 

FUes Affectc d: None 

5 CLEAR 900 

JO REM SAVEU AT FCASTl 

■ZQ REn USE.S LEfl.Sr SeUAREB REGRCSSIOW METHODOLOBV 

30 REM %1itt*fiL%it1i*fft*t^it*tif^iHi*t%tt'>Htii*f***'iHt»%t%iHt*%%*%%t*%%* 

35 CL3 

40 PRINT "eNtER THE MUMBER OF TIME PERIODS TO BE ENTERED"; 

SO INPUT K 

to PRlMT "ENTEfi THE NUMtlER OF FUTURE PERIODS TU FQRECftBT"S 

7Q INPUT Nl 

SO FOR P=J TD N 

•JO )CO=p 

100 PRINT '■enter; value FDR PERIOD "jP; 

no INPUT VO 

120 Vl^Vl-fYO 

130 Xli^Xl+XO 

140 /:i"Zl+5(0*V0 

ISO J!2=-)(2+X0i:2 

160 NFXT P 

170 REM *««»***»**»»** CnMPUTATIQN OF A AND S ************* 

H?0 B^ £N*: t-Xl *Y1 ) /<N*X:5-Xit2) 
200 PRINT 
210 PRIMT 
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220 REK tXttidtttK tt*H<)<**^ FOR^rAST AREA t^tttit^^tiUl'Ul'HHtifll 

?:50 pFilMl "t.^tlf*1ttt**t*"t:*l^M>H^**tt*ttl^*.itiH.tti^*.*i|;^fi^■4^;^:l^" 

140 PRIKT "LEAST SGiUflRES REGREEBION FQREKART" 

230 PRINT 

7AO PR TNT 

;i70 PRINT "VALUE DF RECSRESSION LIME IS:" 

'2B0 F-RIMT "V=";fl; '■*'";B! "X" 

Z90 PRINT 

300 PRINT ■■PERH3D";TAIJ(10) J "FtlRECWST" 

310 FDR P=l TO N+Nl 

320 ¥9=A+B*P 

330 PRINT P;TflB( lO) J V9 

340 IF P.; >N THEN ?t-HO 

350 PRINT "*«**ttlK**t*l(;C*******tH***" 

560 PRINT "FDREC^STea FUTURE PERIDDSS" 

370 PRINT 

380 NEXT P 

590 PRINT 

400 PF^'IMT "ki,it**'t*i*i*xt.>ni**JHiif»»t*:it**M*******tt<tt^'t*if" 

tlO REM 1!*«t«*»r*«*t«*«** PRPGRAM TERMINAT ION POINT ***«***» 

420 PRINT 

■430 STOP 



RUN 'FC^STl- 

EWTER THE NUMBER OF TIME I'ERIUU^ rij £E ENTClEtll'? S 

ENTER THE NUMBER OF FinURE PERIODS TO FORECAST? 2 

ENTER WI-UE FOR PERIOD 1 T 40 

ENTER mUlE FOR PEHIUD a Y DO 

ENTER yrtLUt FUR PEKIQU 3 ? 55 

ENTER UAl UE FOR PPRIOIJ 4 ? 72 

KNTCR kJALUE FUR PERIOD S t SI 



LErtST SOUflRE^i REGKESSION FORECAST 



UftLUE OF REIiRESEIOH LINE IS! 
V» 28.4001 F 30.4 X 



PERIOD FORECAST 

1 313.8001 



2 4y.2001 

3 59.6002 

4 ?0.«002 
3 e0,4002 

FORECASTtn FUTURE PERIUUS 

6 yo.eof>2 

7 101. y 

BREAK IN 430 
OK 
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MAJOR SYMBOL TflELE - FCASTl 




NAKE 


. OESCRIPriON I 




A 


. MALUE OF y INTERCEPT I 




B 


, WdLVE OF SLOPE I 




H 


. NUtlBER OF PERIODS TO BE ENTERED I 




HI 


. NUMBER OF FUTURE PERIODS TO FORECAST I 




P 


. PERIOD NUMBER I 




xo 


. PEKIOD NUMBER I 




XI 


, SUM OF XO I 




X2 


. SUM OF X SQUflRED I 




VO 


. UflLUE FOR PERIOD I 




Yl 


. SUM OF Yt> I 




r9 


, FORECASTED WLUE Of^^ YO I 




i:i 


, SUN OF yo TIMtS VO I 



FUNtTIOMS IJSED 
J 1 



I TAB 
1 ^ 



Moving-Average Forecasting 

Program Name: PCA$T2 

This prograni provides tor tlie foteca<iring of business activity by 
means of a simple-moving average technique. The forecast for any 
given period is determined by averaging the data for a specified number 
of previous periods. This number is specified during program initial- 
ization. 

Files Affected: None 



3 CLEAR 7M 

10 REM SAVED HT FCAST2 

20 REM USES SIMPLE NOVIMG AVefrAGE FCIR^TAST I NS 

30 REN t'li'ti(tit'lf*itif'tii**'t-ifitt4i^*'iir**'l*tii.**'H.*itt>tt*t*%t.i6*»****t:*.*t 

35 CLS 

40 PRIMT "ENTER THE NUMBER OF TIME PERIDBS TO BE ENTERED"; 

50 INPUT N 

60 DIM VO(rvH-l ) 

70 PRINT "ENTEft THE NUMBER OF PERIODS FDR THE MDVINK AVERflEE"; 

aO INPUT M 

90 FOR P=l TD N 

lOO PRINT "ENTER VALUE FOR PERIOD "jP; 

UO INPUT YOCP) 

120 MEXT P 

1-10 PRJNT 

140 PRIMT 

150 REM *t*ttt*ytt*tnt*>li*t FaREt;AST flREft ilH^il.t.lHt!tiltt*t*t*it.* 

170 PRINT 

ItJO PRINT "SIMPLE MOVING AWERAEE FORECAST" 

lICl PRINT 

200 PRINT "PERIOD"; TAB (10>; "ACTUAL" s TAE (20) ; "FORECAST" ; Tft6 (30) s'DIFF" 

210 PRINT 

rsci FOR p=i TO mi 

230 Y<?=0 

?40 IF P<=M THEN 5iO 

2S0 FDR 1=1 TO M 
2i0 Y'?=V74-¥0(P-I ) 

Z70 NEXT 1 



V7=¥9/M 

IF p^i^hf+i THEN 330 

D=¥'5-YC'<P) 

PRINT Pf T«B(1D) ;VO(P> ; TAP (20) j Y9; TfiB (;:;0) sD 

IF P<;>M THFN Z^O 

PfilNT " 



290 
300 
310 

330 

340 NEXT P 

330 PRIMT P;Tf^B(20) :V9 

3feO PRINT 

370 F'RIMT "t»l*ttt*llt*tt*tit.tlfiliM»ttHf*t't*lltftiHnt.t**»*t1t*" 

3B0 REM *t*tt****t»*«li* RROGRfiN TERiniMfiTIOM POINT *»:***»:*«*»:* 

390 PRIWT 

400 STOP 



RUN "FCAST2" 

ENTER THE MUMBER OF TIME F'ERIQDS TO BE EMTILREU? 9 

ENTER THE NUMBER OF PE:RIOflS FOR THE MOWING AWERAQC'? 3 

ENTER VALUE FDR l^ENIOW 

ENTER VrtLUE FOR PERIOD 

ENTER VALUE FOR PERIOD 

ENTER y^LUE FUR PERIOO 

KNTER VALUE FOR I'ERIOIH 

ENTER UALUE FOR PEhlOO 

eNT£[v yALue fof? period 

ENTEK UALUE FDR PEfJiOD 

KNIKfi Ui^LUE FOR PPI^ICtB 



t 


V 


soo 


2 


'f 


320 


3 


f 


570 


A 


V 


530 


5 


? 


5V0 


A 


V 


5S0 


7 


7 


4 BO 


n 


'^ 


520 


'f 


•? 


EEC 






SIMPLE HOyiNQ ftyERAGE FORECAST 



PERIOr 


ACTUAL 


rnRECnST 


DIFF 


1 


soo 








2 


S20 








3 


570 








4 


530 


SJO 





S 


590 


540 


-SO 


« 


500 


5A3.333 


-li.iii7 


7 


4B0 


56i.**7 


84.6AA7 


e 


520 


530 


30 


9 


520 


52A.Ai7 


A,m69 



iO 'iO*.i67 



BRErtK IN 400 
OK 



MflJOK SrrtBUL TABLE - FCAST2 
HAtiE .. DESCRIPTION 



C . . DIFFERENCE BETWEEN FORECASTED AHI> 065ERUES 

I .. TEMPQRARY UORK VMHAUE 

M .. NUMBER OF PERIODS TO CGNBrNE IN THC flyERftOE 

H . . NUMBER OF HiarORY PERIODS TU BE ENTERED 

P . . PERIOD NUMBEFi 

TOO ,. rtCTUPiL UALUES FOR EACH PERIOD 

TS . . FORECASTED WALUE 



FUNCTION!: UB(;D 
I NftME 



1 TA6 
I DIM 

I 
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ExponHitisl-Smoothing Forecastinc) 

Program Name: KCAST3 

This program uses a forecasting methodology known as expo- 
nential smoothing, in which the forecast for a period is based upon 
combining a percentage of the foreciist for f!ie previous period with the 
actual figures for that period. This percentage, called the smoothing 
constant, can take any value between and 1, depending upon the 
weighting you wish to give the two factors. A v:ilue of 1 gives full weight 
to the a.ctual data for the prc\'ious period, whereas zero gives full weight 
to the previous forecast. The constant is specified during the program's 
initialization phase. 

Files Affected: None 

3 CLEAR 900 

lO REM SAVED flf FCAiiTo 

20 REM uses EXPDNEMTIflL SdOOTHIWQ METHDDDL.OGV 

30 REM tit%tiitikt:ifttiit%iitt*^***tii*ii-t it'll *t'»■tt%i^%%*.^i^1^l^^^*^i.lll^*A%^^*t■K^il 

35 CLS 

40 PRINT "ENTER Tt^E NUMBER DK TIME PERIODS TO BE ENTERED"; 

50 IWPUT N 

60 DIM YO(NJ ,Y9(fJ+lJ 

70 PRINT "ENTER THE VftLUE OF THE SMDDTHIWB C;0NSTANT fO-l>"! 

e-0 IWPUT ft 

90 FOR P=l TO N 

100 PRINT "fTMTffR VALUE FOR PERTOB ";P,- 

llO II'IPUT VO<P) 

12(; we:kt p 

130 PRINT 
14(J PftlNT 

150 REM *l:ilt*t««***»***t*ll FORECAST ftREA =( tt»*****!ll* + *lH«***»** 

160 PRINT "* »:»i** Si*** iSiKJt:***;* ******** Kiln:* t IK** ******* *!£*:■■ 

170 PRINT 

180 PRINT "EXPONEMTIrtL ST1DOTHINE FORECAST" 

190 PRINT 

200 PRINT "PEfcmD";TAE< J.Ci) : "«rTir,-.i ■'; TAB f20J ; "FORECAST" ; TAB (30) ; "DIFF" 

210 PRINT 

220 V<?(1)=V0( 1 ) 

230 FOR P=l TO N+1 

240 IF pJi^l THEW 270 

2SO V9(P)=A*yO(P-l )+(1-A: tY9(P-l) 

260 IF P>rj THEN GOTO 320 

270 ]J-iV7;p)-V0(Pl 

230 PRJNT P;TAU(10= ! V01P> ;! HBfEO) ; Y9(P) ;TflB(?0>;D 

290 IF PON THEN "10 

300 PRINT " " 

310 NEXT P 

S20 PRINT P;TflB(:;0>;Y?^P; 

330 PRIMT 

340 PRINT "»*i«*:tr*l|l***l|l**tlll**t**t**»****l*t*l|i««t*1i*tlFHi" 

3!30 REM **************** PftOGRPiM TERMINfiTlON POINT ******««** 

360 PRINT 

370 STOP 
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RUN -i-cflSia- 

ENTER THE NUMBER OF 



TIME PERJOES TD BE IJNTrRED'? 12 



ENTER THE Urtt.LE OF THE 

ENTER VALUE FOft PERJiJD 

ENTER yrtLUE FOR h-ERUil) 

eNTEft uail.ue f'oii PERT on 

ENTER ySLIIE FDR PKRIDU 

ENTER yflLUE FOR ('ERJUD 

ENTER yULUE FOR PERIDD 

ENTER UALUE FDR FERIIM 

ENTRtt WI.UE nOK PERIOD 

ENTER UftlUl" FOR PERIOW 

liNTER yflp i;e for period 

ENTER yflLUE FOR PERIOr 

ENTER VrtLUE FOR h"-EFtIOD 



ShOOTHlNS CONSTANT !0-l)J 



490 

■ 500 

■ S50 

■ 400 

-tso 

■ S40 

■ 560 
380 
560 

T 590 
r 410 
T ;>e>0 



EXPONENTTAL SMOOTHING FDRECftST 
PER I Oil ACTUAL FOREOflST [I IFF 



1 


4*0 


2 


300 


3 


550 


4 


400 


5 


430 


6 


340 


7 


360 


B 


530 


V 


360 


ID 


S90 


11 


*to 


12 


iOO 



490 







4yo 




-10 


493 




-55 


332 


3 


122.5 


461 


33 


1 1 . 25 


455 


A25 


-04 , 375 


4?7 


813 


-6L'.ia75 


5ja 


906 


-51.0936 


554 


4a s 


-S.54£l3tl 


ss;> 


as:" 


-Z-4,7?Z4 


573 


^13 


"3i. ja*/ 


591 


ao7 


■-8.19MA 


svs 


903 





13 



]|t]^ ]^¥^:t^ ^ f « # :(( :lL]|e]^^ ifc ifc ^i^j|:j|c i* 3|L# t # ]j(^;|c ^ f ^^ f f # 3f i( 4 



BRE^K IN 3/0 
OK 



MAJOR SYMBOL TAtLE 



I NAME 

] 

I A 



D 
N 
P 

yo< ) 
r9< ) 



DESCRIPTION 



UALOe OF SMOOTHING CONSTANT 

IiIFFERENCE fClRECAST W3 flCTUrtL 

NUMBER OF HISTORY PERIOBij Tfl ££ ENIEREli 

PERIOE BEJNC CONSIDERED 

INPUT VALUE ARRAY 

FORECAST ARRAY 



FUNCTIONS USED 

NftNE 
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Ratio Analysis 

Program Name: RATIO 

This program calculates and prints a number of ratios that have 
been found to be useful in business, namely; the current ratio, the a.dd 
test ratio, the net profit on sales ratio, tlie investment turnover ratio, 
the return on investment ratio, and the inventory turnover ratio. The 
terminal operator chooses the ratio desired, and the program produces 
the appropriate result. 

Since the definition of the ratios often differs from text to text, 
the formula for each is printed by the program at the outset, The 
program is structured to maintain rhc independence of all the ratios. 
Thus, individual computations can be changed without affecting the 
accuracy of the rest. Moreover, stil! other ratios can easily be added by 
incorporating the relevant subroutines and specifying the appropriate 
GfJSUB for the option number specified. 

Fifes Affected: None 



5 CLEIW "JOO 

iO REN SftVED nr RHTin 

20 REM PROGRAM 10 COflFUTE RATIO flNftl.VSES OF BUSINESS 

30 REM t*t*t********t*t*Kt****»***ll**llf*****t*******illHL**K*IS***** 

35 CLS 

40 PRIMT 

50 PRINT 

70 PRINT "THE FOLLOWING RfiTIDS ARE AVAILABLE" 
80 PRINT 

90 PRINT "# RfiTia";TflB(:55) ! "FOftMULft" 
100 PRINT 

110 PRINT "l CURI^fr'MT RATIO ";TAft<2A) 5 

J20 PRINT "CURREriT ASSETS/ CURRENT LIABI!_I TIES" 
140 PRINT "2..,,A[;iD TEST, .,.,.,..,-."( THB<2A) ; 
ISO PRINT "CflSH*Ri£CEIVADLES+OTHER HiPUin ASSETS" 
IdO PF?(Mr Tfl&(Sl> V'''r;iJRRENT L.I ABILITIES" 

ISO PRINT "3 NET PROFIT Qti SALES. . 'MAS (26> ; "WET PROFIT/NET SALES" 

2(j0 PRINT "4 INVEf5TttEhiT Ti JRnOVER, . " j TAR! < 2i.) j "MET SALES/TOTftL ASSETS" 

220 PRINT "S.... RETURN ON INVESTHENT . " ; TA6 (2i>) ; "NET PROFIT/TQTAL ASSETS" 

240 PRINT "6 INVENTORY TURNOVER. .."; TAB < ZA> ; 

250 PRINT ■COST OF RDOns SOLD/BVERftGE INVENTORY" 

2i,0 PRINT 

270 PftlWT 

2BO PRINT 

290 PRINT "ENTER THE NUMBER DF THE RATIO TO BE COMPUTED"; 

300 0=0 

ZIO INPUT O 

320 PRINT 

?t;0 if Q'^O them 420 

340 IF 0=1 THEN EOSUB 510 

350 IF D--2 THEN CO=^Uj; MO 

3<b0 IF 0=3 THEN QOSUS 730 

370 IF D=4 THEN GOaUB 320 

3S0 IF 0-5 THEN OnSIJB 910 

390 IF Q=i THEM QOSUB lOOO 
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400 PRINT 

4 10 aoTd 2<?o 

4?0 REM iilit******!***** PROGRAM TERMINftTinw POINT *t*******«* 

430 PRINT 

440 PR 3 NT 

430 PRINT "PROCESS 1MB COMPLETE" 

160 PRINT 

470 STOP 

4ao Rf-:M ***************** tL************************************* 

I'fO REM fSUBROLITINES FOLLOW 

FlOO REM **«***«****»*«***»****** ******************************* 

SIO REM ***«******(!**** COHPUTE CURRENT RATIO **« + ******* + *** 

S20 PRINT "EMTER CURRENT ftGSETS"; 

■J7-0 INPUT C 

S4i> PRINT "EMTER CURRENT LIABILITIES" j 

550 INPUT L 

560 R\~C/L 

370 PRINT ft* 

PBO PRINT "CURRENT RftTID =";R1 

S*;0 RETURN 

600 REM **«»***»****** i;OMPIITt: fiCID TEST RATIO *»*»-*!ll*«**** ** 

610 PRINT "ENTER CASH AMOUNT"; 

620 INPUr CI 

6:iO Pl'JlNT "ENTER BECE J WABLES " ! 

64 O INPUT R 

tSO PRINT "ENTER mHEFi CURRENT ASSETS"; 

46ft INPUT ftl 

(.T^ PRINT "ENTER CURRENT L iflBl LI TIES" 

6S(> INPUT L 

69<t R2=(C1+R+rtl>/L 

70O PRINT ft* 

710 PRINT "ACID TEST RATIO "'■jR2 

720 RETURN 

730 REM ***t*ili*#*** COMPUTE NET PKDFIT ON SAI E£S »i|i!»***** ***** * 

740 PRINT "ENTER NET PROFIT"! 

730 INPUT P 

760 PRINT "ENTER NET SALES" | 

770 INPUT S 

780 R-S=P/3 

7'}0 PRINT A* 

SOO PRINT "NET PROFIT ON SALES =";R.^ 

aiO RETURN 

S20 REM ************* COMPUTE INVtiSTHENT TURNOyER ************* 

Q3i> PRINT "ENIKR NET 3ALES"; 

040 INPUT a 

SCO PRINT "ENTER TOTAL ASSETS"; 

B60 INPUT A 

670 R4=S/A 

3BC> PRINT A* 

a90 PRINT "INVESTMENT TURNOVER =";R4 

900 RETURN 

910 REM ************* COMPUTE RETURN ON INVESTMENT ************ 

920 PRINT "ENTER NET PROFIT"; 

"JSO INPUT P 

940 PRINT "ENTER TOTAL ASSETS"! 

950 INPUT A 

960 R5=P/ft 

970 PRINT A* 

9BO PRtNT "RETURN ON INVESTMENT ="5R5 

9'?0 RETURN 
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lOOC REM t*«t«*!|i*«***»* COMPUTE INWENTORV TURNOVER ****»***»**« 

JOIO PRINT "ENTCR COST OF PODDS SOI D"; 

1020 INPUr G 

t030 PRINT "EWTER IfJTfIL flSSElS"j 

104O INPUT A 

1060 PFtINT A* 

1070 PRINT "INVENTORY TURNOVER =";Ri> 

1000 RETllftN 



RUN "RATIO" 

THE FOLLOUINI? RATIOS flht rtUAlflBLE 

* RATIO FORMULA 

1... .CURRENT RATIO , tTURREUr nSSE IH^CURRENT LI**B1LIT1ES 

3...,SCin TEST.., CflSmWECKIVABl.eS+OTHtK LJUUID (ASSETS 

/COfJRlJNT LIADIUITIES 

;3....NEr pRorir on sales net ^^ttOHJT/NL"r bales 

4. . ..INWEliTMENT TURMQUERi . . * . .NET SftLES/TOTAL ftBSETS 
S,... RETURN ON INMEKTMENT. . , . .NET PROFIT/TfJTAL ASSETS 
i....INyENTORr TURNOWER COST OF GOOBS SOLD/AVERAGE IMWENTOFiV 

^NTER THE NUMBER OF THE KATIO To EE (JUMPUTEDT 1 

ENTER CURRENT ASSETS? 1000 
ENTER CUkRKWT LIABILIIIEST 2000 

CURRENT RATIO f ,S 

ENTER THE MUHBER OF THE RATIO TO BE COMPUIEti? i 

EMTER CltST OF CDOOS tiOLti-'- 500 
ENTER TOTAL ASSETS? 1000 

INVENTORY TURNQlJER = ,5 

ENTER THE NUMEEr^ OF THE RATIO TO IlL IJUMPUTED? 5 

ENTER NET FROFIT? 1000 
EMTER TOTAL rtsaETST I'OCflO 

IVETyRN ON INVEliTMENT " .03 

ENTER THE NUMBER OF THE RATIO TU BE COMPUTED? 3 

ENTER NKT PROFIT'? 1000 
ENTER NET SALES'? 10000 

MET PROFIT OM SALES ^ .1 

ENTER THE NUMBER GF THE RATIO TO BE COMPUTED? 

PROCESSTNG COMPLETE 

BREAK IN -i?!) 
OK 
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hAJOF: SYMBOL TABLE - RATIO 
r BESCRIPTIDN 



I NAME 
I 

fl 

S» 

Al 

C 

CI 

C 

L 



P 

Fl 

Rl 

R2 

R3 

R1 

ftS 

Ri 

S 



TOTAL ASSETS 

A t.7NE OF ASTERISKS 

OTMEK CURRENT ASSETS 

CURRENT ASSETS 

CASH ON HAND 

COST OF GOODS SOLB 

cfjRRENr i.rrtBit.inEs 

RATIO WUfiBER TO BE COMPUTED 
MET PROFITS 
KURPENT RECeiVftBLES 
CURRENT RflTIO 
ACID TEST RATIO 
MET PROFIT ON SALE!; 
INVESTMENT TURNOVER 
RETURN ON INVESTMENT 
INVENTdRV TURNOVER 
MET SALES 



FUNCTIONS USED 

I NAME I 

I 1 

I TAB I 

J J 



Equipment Comparisons 

Progra?n Name; ECOMP 

Thb program compares alternative equipment investments. Typical 
investments in capital equipment involve receipts and disbursements of 
funds over a wide span of time. To allow a common basis for their 
comparison, this program converts all fund receipts and paymems into 
their present value (using the specified interest rate), thereby offering 
equality of the dollars at stake. Since the various items of many in- 
vestments have unequal economic lives, the present values of the 
alternatives arc then converted into an equivalent, uniform annual 
amount for direct comparison. 

This prograjn can also be used to compare BUY and LEASE al- 
ternatives whenever a lease can be considered an annual expense at the 
end of each year. 

Piles Affected: None 

5 CLEMR -JOO 

10 RC'K SAVED AT ECDHP 

20 REM EOIJIPMENT COST (FRESFNT VAi LIE} PMORAM 

40 REM *t»*.1i.A:****t**t*t*yft******IILttMt*^ttt4lft*:ti**.**1f.t.*t**it*** 

4S CLS 

50 REM FNTfTR IMITiWLI ZftT 1 ON DrtTA 

^O REM t*.*i:1'.*li*.**lt.if.t*tilil»;1i.**it'il.**x».*t/ft*>.***il.t*t*ltt^-Jmt*tt:**lfH:-t.K 

70 PTilNT 
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£30 PRIMT "ENTER THE NUMBER OF ITE^MS TO COMPftRE"; 

<;o iNPur M 

JC>0 DIM L!lvl> 

110 PRINT "nn THEY HA»/i= OIFFERENT ECONOMIC L IVi-15 <> OR M)"; 

120 IMPUT A* 

J30 3*-- l.EFT*<A*, 1> = "V" THEN 200 

140 PRINT "EMTER ITCOMOMIC LIFE OF THE ECUIPMeNT") 

ISO IIJPUT L,<1> 

liO LD--L il > 

a 70 pnn j^r Tfi n 

190 L(J)-L(n 

i-jo riE):T J 

2H>0 FRTMT "ENTER THE tfJTERfSr Ri^lTF"; 

210 INPUT R 

220 IF R>t THEN R=R/100 

230 PrtINT 

240 IF LFFT*(A*, 1><>"V" THEN 300 

250 FQR J=l TO N 

260 PRINT "ENTER THE LIFE FOR ITEM #";Js 

270 INPUT L(J) 

2eO IF L(J>>LO THEN LO^LfJ) 

290 NEXT J 

300 HIM F(LO,N) .DtLOpN) ,1\ (N) ,S(N),S1 (Nl ,Tl (M) ,T(M) ,n*(N),TO(N),E<N) 

310 FOR J=l TO N 

320 PRINT "ENTEtl THE UESCRIPTIOM FDFt JTEH )t";J 

3:50 INPUT D«<JJ 

540 NEXT J 

J50 PRINT 

5eiO REH t*.%ii.il.*-ii.%^itii.%*'*.'lt*-i'l>tit%s.%)t*tti>t%******ifii-4*t%n't.%*nt.*tii.X'irfr. 

370 REM ENTER CQiST DATA 

3B0 REM «***«»«*<» t.***:****** ******* *.*******«*♦****.**»»**» (tf** 

390 FDR Ji=l TD N 

4C>0 PRINT "ENTER FOR *»***"SD»<J) ! ■•****»" 

410 PRINT 

420 PRINT "ENTER INITIAL COSTS"; 

430 INPUT U(J1 

440 PRINT 

430 PRINT "ENTER DISBURSEMENTS FflR EACH V£AR" 

4i0 PDF? I"=l TD L<J) 

470 PRINT "¥EflR"s 3; 

■lao INPUT D(1,J> 

490 NEXT I 

500 PRINT 

510 PRINT "ENTER fJflLVHGe VflUJE"s 

520 INPUT Sf,J) 

530 PRINT 

340 NEXT .J 

530 REH ***t*««***»i*t************» + *«***»*Jl«***«**il(«»»«*»****it 

560 REM CIDMPUTE I'RESEMT VALUES 

570 REM «***lllH««tf ****«*****«#*» t»**t«!**»»**tt**t*!|(****1l»***»« 

SaO FOR J=l IQ N 

S-JO FOP; r-1 TO (. (Ji 

AOO P(I,J)=D(], J) *( IJ+R) [ (-(!>)) 

610 Tl <J)=T1 *J>+P(I,J) 

620 NEXT I 

630 ai <J>=S<J>* < (1+R>C (-<L tJ) ) ) > 

640 T(J)=n (J) +T1 !J> 

650 MEXT J 

tjijO REM *J:t* + ***K*»*:***»i(**»>l<*******tiKH()l!t ********** *********** 

670 REO PRINT OF RESULTS 

680 REM ******»*****»**»*****«»».*.************»**»***»«**».****« 

690 FOR .J^l TD N 

700 PRINT 

710 PRINT Xli 

720 PRINT 

730 PRINT TAB(IO) ;DiKJ) 

740 PRINT 

7S0 PRINT "PRESJrNT ywJJE OF EQUIPMENT COSTS" 



7&0 PRINT 

770 PRINT "ITEM"! TABUS) ! "C0BT"fTfflB(235 ! "PRESENT WflLUE" 

7S0 PRINT 

790 PRINT '■INITIAI.";TAB{1S> :T1 (J);TAB{27* ; Tl (J) 

aoo PRINT "DtSBIJRSEMEWTS" 

SiO FOR 1=1 TO L<J> 

S20 PPIMT "VEflR";l5TftB(lf7>;D<I,J> iTAI5(27J ;p{I,Jl 

330 NEXT I 

S40 PRINT ■' ■ " 

350 PRINT "PRESENT VALUE C[lSTS"srAE<27J;T<J> 

PiO PRINT "LESS SALVAGE yftLLlE"iT*B<15>BS(J) pTAB<27) |S1(J) 

370 PftINT " " 

SBO TO( J)=T<>J)-S1 (J) 

370 PRINT "PRESENT VALUE NET COSTS" ; TSB (27! ; TO ( J) 

900 PRINT 

910 NEXT J 

^^70 PRINT Xt 

930 PRINT 

9S0 REM PRINT EGU.IIVALENT ANNUAL AMOUNTS 

970 PRINT "ERUTl^ALENT ANNUAL EXPENDtTl.lRCR" 
9SO PRINT 

970 PRINT TA&<lC>;"rfEM";TAE>(2S>s"ANNUAL COST" 
1000 FOR J=l TQ M 

toio f=(j+r>i:lcj) 

liMO A=(R*F>/(F~1) 

103O EtJ)=TO(J)*fl 

i04Ci PRINT Dai(,I);TAB!27) ;E<J> 

1050 NEXT J 

1060 FiErt ft.*%t**1H.iHI.*il.**tt*%***%*t1tt*.***1l**lt*-ll*.*t**1i.t:ttil.t.%if*t. 

1O70 REM PROGRAM TERhlNATIDW PDINT 

1080 REM ****it****t****t*t****1i******»»*t*««»*»L*«*«*t*«*«t*** 

1090 PRINT 

1 100 PRINT 

1110 PRINT "PROCESSING COMPLETE" 

1120 PRINT 

1130 STGP 



F(UH "LCOHP" 

ENiri; THE NUMBER OF ITEMS T(l LDMPflRE'? 2 

nil THEY HflUr li^rpEREi^T ECONOMIC LH'tS tr I.IR »)'•' N 

ENTER ECriNOMlC LIFE DF THK EaUlPMENTF 3 

EMTER THE INTtkEST RflTET 1-1 

EHTEIi VHE DESCKII'lION FUR ITEM * 1 

■' MACHINE TYPE 1 

ENTER THE DESCIiJPTION FOR ITEM t 2 

i M(^c:hine iypl 2 

ENTER FOR -»****hfiCHINE TTPE lift*** 

ENTER jNJTifii. i:oaT".r UlOO 

EMTER DiaBUR!ii'MLNI!i FSJK EflCIH VCflK 
TEftR 1 T 100 
YEAR 2 T 200 

ENTEI^ ijALUAQE UftLLtE? i^SO 

ENTER FDR *****M(iCH:NE TVPE 2**+** 

ENTER INITIAL tOET!jY 2(lW 
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ENTER DISBURSEhENTS rUR EACH TEAK 
TE«R 1 T 50 
YEftR 2 7 SO 

ENTER SflLVASE VALUE? 1250 



MACHINE TYPE 1 

PRESENT VALUE OF EUUIPMLNl COSTS 

ITEM COST PREaCNT <fflLUE 

INITIAL 1000 lOOO 

niSflURSEMENtS 

Vtfih 1 100 a7.71?3 

YE^R 2 300 ISS-SV-t 



PWESENT V/iLUE COSTS la'Ul.Al 

LESS SALUflRE VALUE H50 192.347 

PRESEHT WALUE NE:T COSTS 1049.25 

************************************* *iir***^*******«* 

HfiCHlNE TYPE 2 

PRESENT VALUE OF LGUIPMENT COSTS 

ITE^f COST PREEEUT WLUE 

INITIAL 2000 2000 

DISBUBSEMENTG 

YEAR 1 50 -13.6^97 

YEAR 2 50 JB.ATSA 

PRESE:NT UflLUE COSTS 2082.33 

LEES SALUAOE VALUE 1250 941.835 

PRESENT UALUE NET COSTS 1120.5 

EOUH/ftLENT ANI^UAL EXPCIHDI HIKES 

ITEM ftNflUflt. t;U!=T 

HflCHTWE TYPE 1 <S37.15>7 

MACHINE TYPE 2 iBO.AiS 

PROCESSINi; COMPLETE 
PREAK IW 1130 
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FUNCTIUNG USCD 



I HAME 


. . DESCRIPTION I 


MAMC I 


1 A 


. . ftHMUrtL INTEREST FACTOR I 


[ TAB I 


I At 


.. INPUT flNtJUER VflMrtftLt I 


[ tllM I 


I D*() 


. . DESCRIPTION OF ITEM I 


[__ J 


I n< ) 






I EO 


.. EOUiyALENT AWHUftJ. COSTS I 




I F 


. . IWTEREET FACTOR I 




1 I 


.. IWPEX AMD ARRAY POINTER t 




r IK) 


.. INITIAL i;OST AKRf^T I 




I J 


,, mHEX AND ARRAY POINTER I 




I 1 o 


., ECnKOMIC LIFE I 




I LO 


. . M^^XIMUM LIFf. Dh kWUrpMEWT 1 




I M 


., NUMBER OF ITIiHS 10 COMPARE I 




I PO 


.. PREEENr VALUE OF UISBURSEMENTS I 




I 1? 


. . INTEREST rate: I 




1 St) 


. . S^LUAGE VALUE I 




I Sl( ) 


, , PRESENT VALUE OF SALWAGE I 




I T( ) 


.. TOTAL COSTS I 




I T0< ) 


,. TOTl^L PRESENT COST - SALyAlSE I 




I TH) 


1. TDTAL PfrESENI VALUE OF DIGBUfiSEMCNTS I 




I Xt 


,, LIME OF ASTERISKS I 





Depreciation 

Program Name: DEPRrC 

This program computes the depreciation of an asset by using any 
one {or all) of three methods. It also assesses the differences in the 
effect of these methods on taxes and profit figures and calculates the 
(iepreciarion for year-end accounting. AH data is entered in response to 
program messages through the keyboard. 

Comment: The double-declining balance method is based on the 
straight-line rate. It is calculated by multiplying the straight-line depreci- 
ation rate for a given year by a given factor. Check current tax laws for 
the as.ict being depreciated, and enter the appropriate factor in response 
to the program's message. 

Files Affected: None 

S CLEftR '500 

10 RE» SfWED ftT DEPREC 

20 F(EM DePRi^CIATiaN DOMPLITHTUJW PROGRAM 

30 REM *»***»■».«*»»«**»»« DiTffi ■J^fIT:IALI^m"Io^^ *»*tii»***«»**»it**»r 

45 CLS 

BO PRINT ■■E:r4TER THE INITIAL CHST OF THE ASSETS"; 

iO INFIJT C 
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70 PRINT "EMTER THE LIFE UF THE ftSSE f (JN VEHRSl"s 

80 INPUT L 

90 nm B(L) ,1*!3) , Dl (L*l) 

ICIO r»(l)="STRAIRHT-LJNe' nFPRECIATIOW" 

110 T*(2)T"StJM~DF-THe~VEAftS-DIGITB" 

120 T*s3J="rOUSLE-DECLiNmG BALANCE" 

iZri PRINT "RNTER THE SALVAGE iJALUK" ; 

140 INPUT S 

ISO PRINT 

lAO PJ*INT 

170 PRINT 

JBli PRINT 

190 PRINT 

20O PRINT 

210 PRINT 

E20 PRINT 

330 PRINT "EWTER THE MUMBER OF THE NETHDD TO USE (4 F0!( ALL)' 

340 0=0 

250 INPUT O 

260 PRINT 

270 IF D=0 THEN 360 

2eO IK Di^l THFN GDfiUB Ji40 



"THE FCUSMIUB fll.TERNATTVE DEPRECT ATTDN rtJTTHODS fiRE fiVAlLABLt-V 

"1. . -STRAIHHT-LINE" 
"2. . .3UM~0F-THE-VeARR-D!GITS" 
"3. . -DOUBLE -DECLININS BftLfiMCE" 
■■4...ftLL OF THE ftBOVE" 



S'JO IF 0=2 THEN GOSUB SiO 

sot) IF D==3 THSM BOBUB 720 

310 IF D<4 THEN 350 

3Z0 COSLJU 440 

330 Enauij !56i> 

340 QOSUB 720 



'STHftlSHT-LINF 

■SUM OF YEARS DIGITS 

' DnUBL E - l>e C L I N Il^tG 



■STRftlGHT-LINE 

' SUM-OF-yEfiRfi-O KSITS 

' DOU&LE-DECLININQ 



3SO REM ^lltfttv^tlrtr't:*******^*************** ******************* If 

:560 REM PRDGRAM TFRNIWATION POINT 

370 REM »litit:^tji*|]if K()c»il(;t)(:tJiJ!«)t:(i:<i)cititli4il:*ili*4Kit:*li»««1;ai»:lili:tiilc1itit<li)i*t; 

380 CLS 

390 PRINT 

400 PRINT "PROCESSING COMPLETE" 

410 PRINT 

420 STOP 

430 RiiM ***** If *t*****t*******t*^ ******** **t***t* ******** ******* 

440 REN STHfllEHT-I.INF DEPRhCI AT 1 ON 

450 REM i********************* ********* **l*#t4********«*it ******* 

4A0 ro=>i:-!5 

470 D1(13=C 

4fJ0 FOR 1=^1 TD L 

490 D(I)=DO/L 

5O0 Dl < I+l )=Di <I J"D( I) 

5JO NEXT I 

530 GDSUB 050 'PRINT RESULTS 

3^5 INPUT" (HIT ENTER TO CONTINUE) "; Z* 
340 REVURN 

S50 REM ********* t*li*****tt ********* *******i**it'(t*K***t ******** 

560 REM ESUt-t-QF-THE- YEARS-DIGITS 

^70 P£n **'t:*******ll!*!t*********t*t*t>l**t*t *********!******* If Mitt* 

5S0 E)r(l>=C 

5^0 DOi=C-S 

AOO FDR 1=1 TO L 

fclO M=N+l 

(i20 MEXT I 

630 FOR 1=1 TO L 

640 F"<L+I-r)/lvl 

6S0 Ijn>="DO*F 

&AO 1>1 (H-n^Dl (I)-D(I> 

670 NEXT I 

690 GOSUB S50 "PRINT RESULTS 

6'?S INK'UT'MHIT ENTER TD CONTINUE) "f7* 
700 RETURN 



710 REM *»««**«**«««***««*«********»****»********************** 

720 REM DOUBLE-DECLINING BflLAWCE 

73& HEM ill%t*!t********t**********>f*****>^**'^****^**'^'**'^*^****^^**■''^** 

740 Dl (li=e 

750 PRINT "ENTER THE FACTOR TO BE APPLIED TO 5-L RATE I.E. 1.5"; 

TiO INPUT F 

770 FOR 1=) TO L 

7aO D<I )=<ni tl) / CD ) *F 

790 Ql (J+1)=D1 (I)-D(I) 

SOrn NEXT I 

SIO K=J. 

a20 ROSUB S50 'PRINT RESULTS 

325 INPUT" tHIT ENTER TO GONT INLtE) " , J« 

S30 RETURN 

Q40 REM *ittt***t*-<t ****■*>( ***<t*************»'*t***t**>tt***t**lt*Hf* 

S!30 REM PRINT OF RESULTS 

B60 r!-:m (I************ *****«♦*****#***** ******** + *in»t»*«*»4t*t*« 

B7r> PRIMT Xt 

B80 PRINT 

e'}0 PRINT T* (K) 

"fOO PRINT 

VIO PRINT "INITIftL W^LUE " ; C 

■JSO PRINT 

930 PRINT TAbf ICi) ; ■■DEPREC";TftB(30* ; "REM V/ftLUE" 

"540 PRINT 

930 FDR 1=1 TD L 

9AO PRINT "VEftR"; I;TAB(]0) ;£)II> 5TfiB<20);Dl <I-H) 

<970 ne:(t I 

990 PRINT 

990 PRINT "SfiLVflQE VALUE ="il>ia) 

1000 PRINT Xt 

lOlO PRINT 

lOZO RETURN 



RUM -BEPREC" 

ENTER THE INITIAL COST DP THE ASSETS? lOOOO 
ENTER THE LIFE UF THt rtSSLTT (IM YEARSJ? S 
ewtER THE SALVflSE VALUE? 2500 

THE FOLLOWING ALTERNftTIUE DEPRECtflTICIN METHOrS ARE fi^JfllLfleUi; 

1 . . .STRAIGHT-LIME 
2. , ,SUM-OFTHE-YEARE -DIGITS 
3. . .DOUBLE-BECLININO BrtLflNCE 
A., .ftLL OF TWE ABOVE 

ENTEJV THE NUNtl^fc OP THE METHOD TD USE (A FOR ALL)? 4 

t t::t;4r4;!f !(;( It X ^ ^ itTK i It III sKSCit t ^!): 4= * *r!t!« >t ;f 4^ *>): 4! It 4 * IK IK !t ^>: >r ^ * !l< * <: 4: D!» !« ;t< ^ ^ !);^ 
STRAIGHT-LIME lEPRECIATIOl^ 
INITIAL WALUt 10000 

DEPRtC REM tJftLUE 



VEAI* 1 


1500 


asoo 


YEAR 2 


1300 


7000 


YEAR 3 


1500 


5500 


YErtR 4 


1500 


4000 


YEAR 5 


1300 


2500 



SALUABE VALUE ^= 2500 
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SUH-OF- IWH-VEARS ■ DIGI TiS 
INITIAL WALUE 10000 

DEPREC REM WrtLUE 



YEftR 


1 


3S0O 


7500 


YEAR 


a 


2000 


3;i00 


/EAR 


:i 


1500 


4000 


YEftR 


4 


1000 


3O0O 


VEflR 


5 


300 


asoo 



SAHJftGE VALUE - 2500 

ENTER THE FACTOR TO l<£ rtPF-LIES TO E-L RATE I.E. 1.3? 1.5 

OOU&LE-BECLININO SflLANCE 
INITIAL UftLUE lOOOO 

tiEPREC REM yfll.UE 



YEAR 1 


3000 


7000 




YErtR 2 


2100 


4?00 




YEAR 3 


H70 


3430 




YEAR 4 


1029 


2401 




YEAR 5 


720.3 


1480. 


7 



SALVAGE VALUE - 161)0.7 



PROCESSING COMPLETE 



BREAK IM 420 
OK 



M(iJOR SYMBOL TrtBLE 



I NViME 

I 

I C 

DO 
DO 

Dl< > 

F 

I 

K 

L 



s 

T+f ! 



DESCRIPTION 

INITIAL COST OF ASSETS 

DEPREC I AT I UN flRRAV 

AMOUNT TO DEPRECIATE 

UNBEPRECIATED MftLUE ARRAY 

DEPRECIflTIQN FACTOR 

INBEX AND ARRAY POINTER 

INDEX PQINTLR TO METHOD USED 

LIFE OF THE ASSET 

OfTJIJN NUMBER 

SALUAOe OALUE 

DEPRECIATION METHOD NAME AfiRA^ 

LINE OF ftSTERISKS I 

r 





FUNCTIONS 


USED 


"I 


NAME 




















TAP 








QDSUB 








RETURN 








DIM 
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Expected Value Compulation 

Program Name: EXPECT 

This program analyzes business decisions by using the statistical 
technique of expected value. The possible outcomes of a decision are 
evaluated by multiplying their value, should they octur, by the proba- 
bility of their occurring and comparing the results. To use this program, 
therefore, it is necessary to determine each of the possible outcomes and 
its value to the firm should it occur as well as the probabilitj' of its 
occurrence. Note that the sum of all probabilities must be 1 for the 
computation to yield accurate results. 

Files Affected; None 

5 CLEAR 900 

10 REM SAVED AT EJCPeCT 

20 REM EXPECTED VflLUE CDnPUTflTION 

30 REM /IlitttlH^ttlUtt*****^****************^***!!********.!!*******.* 

35 CLS 

40 PRINT 

50 PRINT 

60 PRINT '■ENTER THE NUMBER OF DUTLIOMES THPiT ARE POSSIBLE" 5 

70 INPUT N 

BO PRINT 

90 DIM P(NJ , V(IM) ,D» (WJ . EfN) 

110 FOR l-il TO N 

120 PRINT "FOR OUTCOME"; I; "ENTER:" 

130 PRINT-DEECRIPTIDM OF DUTCDME"; 

140 INPUT D*U> 

150 PRINT "VALUE OF RESULT"; 

160 INPUT Vll) 

170 PRINT "PftOEiptEilLITY OF IT HAPPENING"; 

ISO INPUT P(n 

190 PRINT 

300 NEXT I 

ZIO REM **t***t*t******t*t**!lft**t*t*t*t*********ti ******** t*S.t* 

220 REM COMPLiTE RESULT 

230 REM *******f ******! ********************************** t***** 

240 PRINT 

2SO PRIWT >:« 

260 PRINT 

270 PRINT TABiSl; "EXPECTEO VALUE COMPUTATION" 

230 PRINT 

?90 PRINT "T>ESCRrPTION OF OUTCOME" ; TAB (32) j "VfiLUE" j TAB<4>» 5 "PRUB" ; 

300 PRINT TAB(4(i) 5 "EX. VALUE" 

SlO PRINT 

320 FOR 1=1 TO N 

330 E{I1=P(I)>«V(I) 

340 PRINT D*( I) 3TAB<3Z) qVtl) 5 TSB<40) ! P< I) ;TAB(4*) ;E CI) 

350 PO=P0+P(I> 

360 T=T+E(n 

370 NEXT I 

380 PRINT " " — -' " 

390 PRINT TAB (20) !" EXPECTED VALUE" ; TAB <40) i POt TAB (46) j T 

400 PftlMT X* 

410 REM t-tt ****** ***t*t*!>*******-i:**!H.*ii:tt* if***. A**tlf *****■****».».* 

420 REM PROGRAM TERMINATION POINT 

430 RFM t***-* ***lf***t**t** ************ ***tlft**$'tVt*tlt'Ktt*f*>t*** 

440 PRINT 

4S0 PRINT 

460 PRINT "PROCESSINB COMPLETE" 

470 PRINT 

4aO STOP 



RUN "EXPECT 



ENTER THE NUMBER DIE OUTCOMES THAT ARIT PDSSIBLET 3 

h'OR nLTCQME 1 cnter; 

rhESCRIPTION «F DUTCOMET THE PRODUCT SELLS SUCCESSFULLY 

WALDE OF RESULT? I<i00 

fROBfiBILITY rjF IT (IfirFENINIjT p SO 

FOR OUTCOME 1 ENTER: 

JiESCRIPTJUN OF OUTCOHEV THE FftOPUCT DDES NOT SELL TO SENI5P& 

yftLLE OF RESULT? 100 

PROBflBILITY or IT HAPPENING? ,23 

FOR OUTCOME :i ENTER: 

JJESCRIPTIHN OF QllTOOHE? THE PRODUCT DDE3 NOT SELL 

VftLUE OF RKSULT? -20O0 

PROertBILITY OF IT HAPPENING? .S3 



ALUE 


pFiaii 


EX. USLUl 


1000 


,3 


300 


100 


,2^ 


23 


2000 


.2^ 


■SOO 



CXPCCTEI* UfllUE CQMPUTfiTIOM 

DESCRIPTION OF OUTCOME 

THE PRnOUCT SELLS SUCCESSFULLY 

THE PRODUCT DOES NOT SELL TO SEMIORS 

THE PRDBLCT DUES NOT SELL 

EXPECTED y/il.UE 1 25 

PROCESSING COMPLETE 

FREAK IN 400 
OK 



WrtJOR S 

I 

J NAME 


(httOl. TABLE - EXPECT 


, DESCRIPTION t 


J D*f ) 


, OUTCOME DFSERIPTIDN ARkAY t 


I E<> 


. OUTCOME EXPECTED UftLUE fiRRAY I 


I I 


. INTfEX niMD ARRrtY POINTER J 


I N 


. NUMBER OF OUTCOMES I 


I P(> 


. PROBABILITY ARRAY I 


I PO 


. lOTftL PH0EABIL3TY I 


I T 


. TOTAL EXPECTEB VAL.OE I 


I U<> 


. OUTCOME UALUE *RRAV I 


I 


. LINE OF ASTERISKS I 



FUNCTIONS UGEO 
1 J 

I mm I 

I 1 

J TAB 1 

I DIM I 

J, 1 
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Amortization 

Program Name: AMORT 

This program computes an amortization schedule for a debt, in- 
cluding repayment amounts and remaining balances for the life of the 
debt. All data is entered through the keyboard in response to program 
messages. 

Files Affected: None 



5 CLEAR 900 

ICt REM SAVED AT AMOPT 

20 REM flNORTI7fiT3DN PROIjRflM 

50 PRIKT "ENTER IMJTIAL 0EI5T"j 

iO IMFUT 15 

70 PRINT "ENTER INTEREST RATE": 

80 INPUT F! 

90 IF R>1 THEN R=R/I0O 

lOO PRINT "BRE THE PAYMENTS MONTHLY iM), BlJftRTERLY (D), OR ftNNUSLL V <A) ■ 

IKi PRINT "COMPOUNDING WILL FOR THE SAME PERIOD"; 

120 INPUT fl« 

130 IF fi»s"M" THEN C=12 

140 IF flSn'fl- THEN C»l 

150 IF A*="Q"' THEN C^t 

lAO IF C=0 THEN ICiO 

170 PRINT "NUMBER OP PAVhENTS TO BE MADE"; 

ISO INPUT M 

i90 Rl-R/C 

'MO PRIWT 

'210 REM it*******4*******ntil*1< + t*!|i*t***Hi****1i******tt***t******* 

220 REM PROCESSING AREA 

230 REM ■tli$**'l*****t*'t.*i*tli***t*it*'tt-'ii-**fi>Hf*^**t**'t-'lniyii>.tii%^**^ 

240 PRINT )«t 

250 PRINT 

260 PRINT TfiBao>; "flI10RT!7ATJ0N SCHEDULE" 

270 PRTNT 

2SO PR I NT " PERIOD " ; TAB 1 10> f "PAVtlENT" 5 TAB (20)5" IMTEREST"' ; TAB 1 30 > ; 

3^*0 PRINT "TO PRINC, '■;TA!e<41>! "BPiL, AFTER" 

30O PRINT TAIUAOJjD 

310 P=INT(CO+!>*tRl/<l-ti+Rl) t (-N) ))*10O)/l.OO 

320 FOR 1=1 ro N 

330 llsfNT (CO+D*Rl*100) /lOO 

340 PRINT l;TAJSfIO) !p;TAB<201;II;TflB(30>;P-Il; 

350 r)=INTtCO-l-(D-(P-l 1> >*100) /iOO 

3M PRINT TAB < 40) iD 

370 WEXr I 

3eO PRINT X* 

Z7Q REM iit***t**41t***yt***ii-i:t**.i******i:t*iHi*********t***)i.itt*iHt*t 

400 REM PRDQRAN TERMINATION POTNT 

410 REM mt*»*t)tx**»iHttttlf*ti*li:titif.t»ttiHi:!).tiHi:**tt:iHtt.t*i.)Ht*t1i*t 

420 PRINT 

430 PRINT 

440 PRINT "PROCESSING COMPl ETE" 

4S0 PRINT 

460 SI DP 
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RUN "AMORT* 

EKTER IMITII^L hepT? 5000 

ENTER INTEftFST KftTE'' 12 

rtRt THE PArriPWlS MOWTHLY (M)i OUfiRTEFlLr <£)), OR ftNNLtwLLY (rtV 

CDHr'OUMDIND WILL FOR THE SftME; PEklODV t1 

NUME<ER OF PAYMENTS Tp BE MCiEE? 24 

X t «««« «:^Di«*!t **« t *!<>: ^ ^ i 11** ^* I'H'!** ****** >c** * ***<*** X*** >«>t* 

flMDRTIZflTrON SCHEDULE 



F'ERIDB 


FAYMEMT 


INTERCTSr 


TO PR INC, 


BAl.. J^FTER 
SOOO 


1 


235.3? 


50 


185.37 


4814.163 


2 


23S.37 


4e.iE 


187.22 


4427,41 


3 


235,3/ 


46.27 


1B¥.1 


443S.31 


4 


235.37 


44.3a 


1?0.79 


4247.32 


S 


235.37 


42.17 


1?2.9 


4054.42 


4 


235.37 


40.E.4 


l?4.fil3 


3eS9,5V 


7 


235,37 


3S.6 


l?i.77 


Z6t,2.S2 





235.37 


36.63 


l?a.74 


3444.08 


9 


235.37 


34.64 


200.73 


iS6a.35 


10 


23S , 37 


32. *3 


202.74 


3040.61 


11 


235.37 


30.il 


204. 7i 


2B5E.B5 


12 


23S.37 


SS.Sli 


206. Si 


?A47,04 


13 


23S.37 


26.4? 


Jgh.tit! 


K44<).lri 


1* 


23S,37 


34.4 


210,97 


2329.19 


IS 


235,37 


i2.;>9 


213, oa 


3014.11 


1* 


235.37 


70.1 A 


21H.2t 


leoo,'? 


17 


S3S.37 


13.01 


217.34 


1583,54 


le 


235., -S? 


15. 04 


219.53 


J3i4.01 


19 


235.37 


13.44 


231.73 


1J42.2B 


20 


33S.37 


tl.4H 


223.93 


918.33 


£1 


233 . 37 


9, 18 


224,19 


492,14 


23 


235.37 


A. 9? 


238. 4S 


443,49 


23 


235 . 3:7 


4.64 


230,73 


232, '76 


2^ 


333.37 


2.33 


2:13-04 


-.08 


4** (tt!********!!!************ ****#****#*****#****!****;***« 



PROCESSING COMPLETE 



EREAK IN 440 

OK 



MAJOR SVHEOL TABLE 



I--— - 
T NAME 
I 

A* 

C 

CO 

D 

II 

P 

R 

R! 



DEHDRIFTION 



ANSWER VARIABLE 

WIJMPFR OF COKF-QUNtiB PER VEAfi 

ROUNDING tONtlTftNl' 

AhOUNT OUED 

IfftetSeST PAID 

FftTMENT 

JWrEREBT RATE 

IHrEREKT RATE F'ER COMPOUNBINO PER101> 

LINE OF ftSTERISKS 



FUMCTIONU (jatli 
;[ 1 

I MAME I 

I . , .^j 

I INT I 

I TAB I 

I 1 
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Return on Investment 

Program Name: RETURN 

This program cdculates che rate of return for a specified cosr and 
income stream by means of a formula that examines the duUaf flow and 
determines the interest rate necessary to equate income and expenses. 
This time-based interest rate can then be used to compare multiple in- 
vestment alternatives. The section of the program beginning at statement 
590 continues to home in on the interest rate until an acceptable level 
of accuracy is achieved. 

Files Affected: None 

5 CLEftR 900 

lO REM SfyVEVt AT HFTURN 

20 RFM tALCULSTES RATE OF RETURN FOR COST AMD INCOME STREAM 

35 CLS 

40 PRINT "ENTER THE NUMBER OP VEPiRS FOR 1 HE CASH FLOWB"; 

50 INPUT ¥ 

60 Y=V+1 

70 DIM C(YJ. I (Y),N(y>,P(Y) 

eo R0=!0 

90 ft=,32 

100 RI=2.56 

no PRIMT "EIMIER THE INITIAL INVESTMENT"; 

tEO INPUT C(J) 

130 M < 1 > =-C ! 1 ) 

140 FDR ,J-7 TO ¥ 

150 PRINT 

160 PRINT "eNTER PDR YEAft ";J-1 

170 PRINT "DISBURSEMENTS"; 

ISO ITJPUT C<J) 

190 PRINT "INCOME"; 

201J INPUT J (J) 

210 M<,3) = I (J)-C(J) 

220 NEXT J 

230 PRINT 

240 PRINT "ENTER FOR TERMtNPrTION CHARSES OR SALVfiGE VALUES" 

250 PRINT "OISBURSLMENTS"; 

2i0 INPUT O 

270 PRINT "IMCOME"! 

2BO INPUT 19 

270 I (V)=l (V>fI9 

300 c (¥>=f:<v >+:;'? 

310 N(V>=N(Y>i-19*C9 

320 REM l^^nt**'^t'^■*****1ftt**■^^t***********^^*****t^*****■**tt*****•1^ 

330 REM PRINT OF CASH FUlW TABLE 

340 REM ****t*******t*t*t*t****1l*******4tt**tt***»tttltttttHfll*** 

350 PRINT 

360 PRINT >;« 

370 PRINT 

380 PRINT TAB t 10) ; "CASH FLOW TABLE" 

390 PRINT 

400 PRINT "VeAR";TAB<lC>)i"RECEIPTS";TA15<2i» n "D1B6URSE";TAB<30>5 "NET FLOW" 

410 PRINT 

420 FOR J=I TO Y 

430 PRINT J-i,-TABllOi ; I tJ) 5 TABOO);C(J ) ; TABOO) :N(J> 

440 ICi=IOt-l(Jj 

450 CO=CO+C (J > 

4ii.i NO=N0+N(J) 
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470 NEXT J 

4aO PRINT Tflei tO) ; "— '— "jTflEUSO) s" — — — — ."■■■TflBOOl ; " " 

490 PRINT TAB CIO) ; irjjTSlS(20) jCO; TftB(503 sNO 

500 PRINT 

SIO PRINT K* 

520 IF WO>0 FHEtM 550 

^ZO PftlWT "CASH FLOW PROWIDEB A NET l_0!3B" 

540 BOTG 840 

SSO PftlNT "IS THIS CORRECT - SHffl..L 1 COWTll-ilJE <Y DR N) " ; 

SiO IMPU'f A* 

570 IF LEFT* (ftS,l)"^"N" THEM S40 

S<?Cj rem CfiLCULrtlE 1'HS.St.t-n value: at INTERrST R 

^OO RE^ti :tKi]iit)cJlclitJtli1iilJ(i^*t)citi^4i^*jl:t[^il<:t4(lLl'«1i*)IIit4<4()ii|<*tt4rll<'l(*t>|rK4:»):«^* 

*10 FOR J-1 TO y 

t20 P<J)=N(J)*(1+Rj [ <-J) 

630 T-T+P<J) 

640 NEXT J 

650 IF T-Tl <.Ol AND T-Tl J-.Ol THEN 7no 

iAO Tl=l 

670 IF T>0 THEM 7JO 

6S0 REM **»tt**t***« INTEREST RATE IS HIRH **#«***««******««** 

690 Ri^R 

70tl R= lR+RO)/2 

710 T=0 

720 GOTO AlO 

730 REM ************ INTEREST PATE IB LDW ******************** 

740 Ri>-R 

7S0 R=(RJ+R>/2 

7A0 T-O 

770 ROTO ;ilO 

7t!Ci REM **»»***»****** INTEREST RATE IE5 CORRECT ************«:« 

y^O PRINT 

BOO R2-1NT(R*lO00+.Rl /10 

BiO PRINT "THE CALCULATED RATE DF RETURM IS ";R2; ■■■/." 

S2Q PRINT 

330 PftlNT X* 

B40 REM t***:*^*********************;!!*********!)!!)**************** 

350 REH PROBRSM TEKMINATICN I'DINT 

S^O R(;N )t*ii(*»»^x**«ili*:t»*»«]!:t!**«!t««)li****>**>tJ(i*«*«t:* **«]!«»«»*«» *ilt 

S70 PRINT 

BSO PRXMT 

B'fO PinNT "PROCESSING COMPLETE" 

900 PRTNT 

^10 STCP 



RUN 'RETURN' 

ElfTER THE NUMPER DF rEARS TOli TIIL CASH FLDH3T 

ENTER THE INITIAL IWESTMENT? lOOOO 

ENTER FQFI VLrtR I 
DISBURSEMEMTS? 500 
IWCOME? 5000 

ENTER FOR YEAR 2 

DISBURSEMENTS? t)00 
INCOHET 7000 



ENTER FOft rERMINATJDN CHl^RDES OR BftLVAGE VALUES 
DISBURSEHENTS? 100 
INCOME? ZOOO 
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CrtSH FLOW TAELr 
YEAR RECEIPTS DlRBURfiE NLT hLOW 





5000 

900O 



lOO&O 


■lOUOO 


500 


1S00 


£00 


s<soo 



H600 



1^:*: « ;): * ^ * 3^ i^*« It ^ itr 1 1*1 !k * ** 4i * **t « 111 *'<( * >« :!:« * *^ HC « «^ X *: * tit *' 
IE THIS CORRECT - SHALL I CONTINUE (Y OR M>-' V 

THE CALCULATED RATE DF RETURN IS 17,'/ 7. 

PROCLSSim COMPLETE 

tsRCfiK IN ?iO 
□K 



MAJOR 

1 

I NAME 

I 

I A« 

Cf > 

CO 

CP 

I( ) 

to 
If 

J 
wo 

MO 

P() 

R 

no 

Ri 
K2 

T 
Tl 

xi 

r 



SrMBOL TABLE - RETURN 



DESCRIPTION 



. ANSIOER VABIAfiLE 

, CDST/DISBURSEMENT ARRAY 

. TOTAL COSTS/riSBURStCKENTS 

, TERMINATION CHARGES 

. INCOME/SflVINDS ARRAY 

. TOTAL INCOME/SAUINCS 

. SALVAGE INCOME 

, INBEX AND ftRPAY F'OINTER 

. NET EFFECT ARRAY 

. TOTAL NET EFFECT 

. PRESENT UDRTH OF NET EFFECT 

. INTEREST RATE BCING USED 

, LOWER INTEREST RATE BOUND 

, UPPER INTEREST RATE BOUND 

. CALCULATED RATE QF RETURN 

. TOTAL PRESENT WORTH OF ftCTTDM 

. TOTAL PRESENT UORTH OF PF;£yiOU3 ITERATION 

. LINE OF SSTERISKSi 

. NUMPER OF rEARS TO BE CONBIDEREB 



AMOUNT 



fUHCrXaHS USEC 

-1 , 

J I NAME 

-I I 

1 I DIM 
I I INI 
I I T(!|B 
1 I _. 

I 
I 

I 

I 
I 
1 
I 
I 
I 
J 
I 
I 
I 
I 
I 
-1 
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Property Comparisons 

Program Name: PROPERTY 

This program compares the costs of property investment actions. 
The individual costs of the property are accepted from the terminal, 
computations are completed, and a tabic is produced that summarizes 
the monthly and annual costs of maintaining and operating tl^e proper- 
ty. In addition, the costs of several properties can be processed to 
produce comparative information for investment decisions. 

Files Affected; None 

S CLEAR 900 

10 REM SAVED AT PRDfCRTY 

20 RKH PROPERTY CDMPftBISON PROGRAM 

30 REM ********************* DATA RJITIA) TZftYKJN «**»****** 

35 CLS 

40 PRINT "ENTER PRDPERTY NftME ( JUST PRKSS RETURN WHEM DONE ) " 

30 R0= .005 

feO N*="" " 

70 iNPirr Mt 

eCl IF M*=" ■■ THEN E340 

fO PRINT "ENTER THE MORTGAGR AdOLMT" 

100 P=0 

110 INPUT F 

120 PRINT "ENTEft THE INTGREBT RHTE" 

130 INPUT II 

140 IF Il>=) THEN 160 

ISO 11=11*100 

16& 1= ( I 1/ lOO)/l2 

170 PRINT "ENTER THE ViTARS OF THE MORTBflGE" 

ISO INPUT ¥ 

190 PRINT "ENTER THE ANNUAL TAKES ON THE PROPERTY" 

200 T=0 

210 INPUT T 

220 T=T/12 

230 T=INTf lT+RO)*10C)> 

240 T-T/lOO 

2S0 PRINT "KNTER THE SNNUflL INSURfiNCE COSTS PCIR THE PROPERTY" 

260 F=0 

270 INPUT F 

aao Fs»F/13 

290 K=INT( (F+RO) *lO0> 

30O F=F/lO0 

310 PRINT "EMTEH THE ANNUAL MAINTENPrNCE riND REPAIR COSTS" 

320 R=0 

?3o INPUT R 

340 R=R/12 

350 R=INT( (R+Rt>!*100) 

Z&C R=R/100 

370 PRINT "ENTER AVERAGE *** MONTHLY *«* UTILITY COSTS" 

3BO U=0 

390 INPUT U 

iJOO PRINT "ENTER AMY OTHep *** MONTHLY *** CGSTH THBT APPLY" 

410 S-0 

42(1 INPUT S 

fl:%0 PRINT "ENTER fiNY OTHER *** ANNUOI. **» I'OSTS THST APPLY" 

HAO A=0 

450 INPUT A 

460 PRINT 

470 PRINT 

4S0 PRINT 
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470 RE^M *-t****f**it>i***-*^************ii-************************** 
50O RFM CCitlPliTATIONS 

S20 M-r/i (lt-l)C(Y*i2)-l) + I 

S3t> Ml'^MiP 

540 M! = IhlTf (Ml+R0)«100> 

530 Ml "Ml /.LOO 

36i> D-U+S+R 

570 Ti=Ml+T+F 

SBO T2-<Tl+ft+S+U) tl2+A 

590 REM ttli:»t:iiit**tt«!tll**ttil.***iH»*iH(*yi****ttt!>:i:*tttl**t*it*t*X*t!i* 

600 REM PRINT RESLILTS 

£20 Phi NT ••*x*)|:i:^:tif»:S^*t^klii:*■t>t*xt:M**i****lt****r*tlt*V*<^**^****tc*1t^• 

63l> PRTNT 

440 PRINT N*."INTKResT RST£",I1;"X - H(3R FGrtaK VS-:ARS";¥ 

630 PRINT 

6^)0 PRINT "MORTEAGE"5TftB(10>;" P I "sTftD iiO> ; "TAJIES"; 1 AB (30> i "INS" ; 

670 PRINT T«Bt40J;" PI n " 

if» PRINT " "; TABdOl; " ";TftB<20) ;" "; T«Bf30) ; 

690 PRINT '■ — — "!TrtB(.*C'M "— — " 

70O PRINT R; TftB(lO) JMI J rflfl(20) ?T;TPIB(30> !F;TflB<40) ;TI 

710 PRINT 

720 PRINT "UTILITES"^ TAB(13> ; " MftlMT" ; TftB <23) ; " OTHER" : TSB i3E!) 5 

730 PRINT " DPfiRAT t NB i:P3TS" 

740 PRINT " — — " ! TftB < 13) ; '■-— ■■ ; TftB (23) ; " — - — —" t 

750 PRINT TRB<40);"- — " 

760 PRtNT UiTAB(lS) jH;TAti(a5J ;S5TrtB<40>i a 

770 PR TNT 

7SO PRINT "rOTftL MDNTHLV C0BT3! *";0+rij" HNNUMl. GUSTS: *"iT2 

790 PRINT 

eoo PRINT "**lllt*t)l*t***$*** ***************!!■***:*■* tW*Sltt*****»»t" 

eiO PRINT 

B20 ErjTO 4<> 

a^O REII * It *t:****t*».ii.*i******lt*****t:***iH**iiHt.t*i*^. ****!>: ******* 

1340 REM PROERAM TERMINATION P0IN1 

850 REM ttt*lt»tt:tsi^t*M***********trtifM**tt*:iHHiH**tit»t**)f*M%:tKM* 

B60 PRINT 

371.1 PRINT 

gao STOP 



RUN 'PKClPllRlir- 

ENTER PROFKRTY NflrtE < JUST PREGE ftETIJRN UHEM DONE ) 

? 234 H^ifihlSDM yTRtfl' 

ENTER THE MOfiTtiAeE: AMOUNT 

? 10000 

ENTER TNH IMTERESI RflT£ 

? 10 

ENTEfi THL rEARli OF THE MORTeABE 

? 10 

ENTER THE ANNUfH rnXF:;i ON THE PROPERTY 

? 190 

ENTER I HE flWNUfll INSURANCE LOSTB TOR THE PROPERTY 

? 100 

ENTER THE riNNuAL MfllNTEMANCP ANC REf-filR COSTS 

ENTER ftUt.Rj^CiK tit* MONTHLY *** UTILITV WlSTS 

T iO 

ENTER AW OTHER *** MONTHLY *** COHTS THAT AI-fL/ 

T 10 

ENTER AMY OFIIER «t* ;^NNUrtL *** CO;>TE> THAT rtPCLY 
? 100 
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234 HrtRRIGON STREET INTEREST RATE 10 X - MURIGAUE ytiAtiS 10 

MORTGAGE f 1 TAXES INS PITI 

10000 132. IS 15.63 a, 33 l^i,,31 

UTILITIES MAINT OTHES OPERATIMS COSTS 

10 15,83 10 35. S3 

TOTAL MONTHLY COSTS! * 1^3.14 ANNUAL COSTBf * 2^0B.A8 

ENTER PROPERTY NAME ( JUST PFiESS RETURW VH^N ItONE ) 



BREAK IN 880 
OK 



HftJOR S-fMBOL TmELE 



I MAfie 

I—- 

I A 

F 

II 

Ml 

€ 

f 

R 

R« 

E 

T 

Tl 

T2 

U 



DESCRIPTION 

OTHER ANNUAL COSTS 

ANNUAL INSURANCE 

INTEREST RATE 

RRINCIPflL AND INTEREST 

NftME OF PROPERTlr 

TOTAL UTILITIES/MA I NT/OTHER 

hOfvrertee amount 

ANNUAL MAIMT/REPAIR CrjSTS 
ROUNUJNO CUNSTflNI 
OTHEJ^ MONTHLY COSTS 
ANNUAL TAXES 

PhlNCIPAL/INTERESI/ri^Xfa/INSURANCE 
TOTAL ANNUAL CDSTS 
UTILITY CO'jTS PER hONTH I 
YEARS OF THE MORTSAOE I 
1 



FUMCTIONS UEE» 
1_„__„ „_j 

I MftME I 

j_,„„„ J 

I TAB I 

I INT I 

I J 
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Job Pricing/Bidding 

Program Name; BIDDING 

This program accepts overhead and fixed and variable cose infor- 
mation about a product or job to compute the price or bid it warrants 
in accordance with a specified markup percentage (or range of per- 
centages). The program also provides a summary of costs for manual 
review and computation. 

Piles Affected: None 

S C.LtAR '?O0 

10 REM SAVen AT BIDDING 

20 REM COMPUTES BlOy BflSEO UPON FI>;E;D AMD VARIABLE nOSTG 

10 REM !ti|t**tir***« ***«*#*******«*««***;**** + ** + *•**«**«** *«*****»« 

S5 CLS 

■40 M=2S 

SO 1 = 1 

to J"l 

70 DIM F(M>,F*<Mt,y<M>,V*(M) 

SO x*="it tin** It )mif***ittimi>**»itj<*****t****+************^^** ********" 

90 REM ENTER IWITI ALT ^ INS JNF^ClRNATlOM 

100 R[£M )f*t*ti.iii:**»/.im**itii***iif:ii.t**itt**ittx***it*****»***tit***»****** 

no PRINT "ENTER THE AMOUMT OF OVERHfAD DOLLARS TD APPLV"; 

120 IMPUT D 

130 PRINT "EWTER f-"IXFD COSTS THHT APPLV AND THE TVPE DF COST" 

J4n PRINT "EXAMPLE lOOCSET UP CHA«(3ES" 

iSO INPUT F(I> ,F«fr> 

160 IF F(I>=0 THEN ISfO 

1/0 Ii=I + l 

lao GOTO ISO 

1TO PRINT "ENTER VARIABLE C015TS THAT APPL.V AND THE TYPE OF COST" 

200 PRINT "EXAMPLE 10. M(iTERI ALS" 

210 INPUT ViJ>,V«i.]l 

2M IF y(,IJ=0 THeW 250 

230 J=J+1 

240 GOTO 210 

230 PRINT "SHALL I PRINT BIDS KDR A RANBE UF MARK-UPS <V OR N)"; 

2&0 INPUT At 

270 IF LEFT«(A*, n="V" THEN 330 

280 PRINT ■ENTER MARi<-UPS^^ 5 

2*0 INPUT PI 

300 P3=Pi 

310 a=i 

320 GOTO 390 

330 PRINT "ENTER BEGINNING MARK-UP"! 

340 INPUT PI 

350 PRINT "ENTER ENDING MARK-UP") 

360 rNPOT p:: 

370 PRINT "ENTER INTERVAL BETWEEN PRINTS"; 
3a0 INPUT S 

Z'^Q PRINT "ENTER THE QUANTITY TO BE SID"; 
■400 INPUT Gl 

410 REM tt»*Jtt***t***t***.t**ti*****fHlt**ilt******it1t**t:*i***l^t*>t* 

*70 REM DISPLAYS RESUL TS 

430 REM *t**tt*tltt*i**t*t****»!t******t*ttK***.**t**tt********.**t 

440 LPRINT " " 

450 J1=J-1 

4AO 11=1-1 

470 LPRINT X± 

4B0 LPRINT •■ " 

490 LPRINT TAPitlS); "JOB COHT" 
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500 LPRIWT '■ '■ 

510 LPRINT "0VEftHEAD";TAB(30>;0 

S20 LPBIMT " ■■ 

530 LPRINT "FIJlED C0S1S" 

540 FDft 1=1 TO li 

550 LPRINT " ■■;F* ( I) ;TflB<30J jrd) 

570 NEXT I 

SBO LPRIMT TAB(:30>;" " 

5fO LPRINT "TOTAL FIXED CDSTS"; TAB (30) ; F-? 

too LPRINT ■■ " 

*,!0 l.PKIUT "VftRIftBLE COSTS!" 

A20 FDR J=l TO Jl 

i30 LPRINT " ";U't(JJsTAB(3c:)>;y<J) 

A5Cl NEltT J 

i60 LPRINT TPiB^ZO'if" " 

470 LPRINT "VARlflUI.E COSTS PER UNJT"; TAB (30) j i^? 

fcBO LPRIMT " " 

i90 LPRINT X* 

70O LPRINT " ■■ 

710 REM **«tlfi|t*l!tl|i**«»llt**»« PPiINT r;OST STRUCTURE: ************* 

720 LPRINT TAB (13>," SUMMARY OF ClOSTS" 

730 LPRINT " '■ 

740 LPRINT "EUnNTITY*'5TflB(10) : "DVERHEftD" J TAB (2Cl> ; "FIXED"! 

750 LPRINT TAB!30>i"'y'FifilBLE";TftB('«0) ; "TDT COSTS' ; TAB (50) ! "COST/UNIT" 

760 T1»01«V9 

770 TS0+F9+T1 

7B0 LF'RtNT " " 

7<?0 LPRINT Ql;TAB<lO>;0iTftB(2(D);F9;TfiB(3O>iTliTAE(40) ; Ts TAB (50) jT/(51 

SOO LPRINT X* 

BIO LPRJNT " '■ 

520 RfM »**»*»*«****»««*«** PRINT RANBt OF BIDS ******««****» 

a30 LPRJNT TAB(15>-, "CaST/PFiOFITB/^iIOS" 

aw LPRINT 

S30 LPRINT "PERCENT" jTHBdO) ; " COSTS" ; TAB (20) 5 "PROFI T" j TAB (30) ; " BIT 

360 LPRINT " .. ■ 

a/l) FOR K^Pl TO F2 STEP S 

SaO P0=(K/10O*T) 

B90 B=PCi+T 

900 LPRINT TAn<2) j|i;;TABtlI>>;T;TABt20) ;P0sTAB(30);Ei 

910 NEXT K 

920 LPRINT X* 

940 REM PROGRAM TERMIMATinN POINT 

fbO PRINT 

970 PRIWT 

9S0 PRIfJT "PROCeSSJNfH COMPUETE" 

790 PRINT 

lOOO STOP 
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RUN 'BIDDINB" 

ENTER Hit AMOUNT OF OVt;SMtfl£t UCJLLAftS TO fiF'I'l.YT 1000 

ENTER FIXED COSTS THAT ftfPLY AND THE TfFE OF CDijT 

EXAMPLE lOOOrStr UP CHARriEQ 

T lOOOiSET UP CHARCeS 

? SOOTlUflNSFOftTATIOW 

V 

EMTER WARIflFLE COSUrS THAT APPLY ANIf IHi; rYF'E OF KDST 

EXAMPLE lOTMrtTERIf^LS 

? lOrMftTERlfiLIS 

7 IflJARIAELE SHlPriNG 

SHALL r PRINT BIDS FOR A RANGE OF MARK-UPS (Y OR N)? V 

ENTER BEGINNING MAKlK-UF ? 10 

ENIER ENDING MARK-UPY la 

eNTEK iMTERWrtL Bt'TUIEEh PRINTS? 1 

ENTER THE QUANTITY TO Ue PHiT 100 

HI f « It ^:^i)l t' * * ^ !« ^^K* !^^ * IX * >: t >l< * ^if! II: >* ^>^1t K 91 i):!|i Kl if X imV ^3|f ^ 41 * V >|i ^4:^ * 4: XI X »: m 

JDS CQiSl 

OVERHEAD 1000 

FIXED COSTS 
SET LTF CHARGES lOOO 

TKflNSPORTrtTlON 500 



TOTAL FIXED COSTS 150 

WARIflPLE COSTS 

MATEEdALS 10 

VAfilrtBLE SHiPPINB 1 



UARiAULL lui:;t!; ctu unit ii 

f icsltt t It * K * sKitik X i: >< ^^ if f III «:|: w « itiitilt It >: JK III * >«>: X t * *st 41 * il!*)l:il( tiKiK!):* «*ili * f **]|tf 

SUHHiSiRY OF COSTS 
HUANIITY nVKRHEAD FIXEI" VARIABLE TQT COSTS C0S7/UNIT 

JUO j<>0() ISVO 1100 3*00 JA 

it**k!t>t^iliili**:t>:i|(t*>«;)ii):i):»!K>ti«:t!|tit:il<«!f;|:il!*^^i^K:t't'>f**>fit:*«i|[i|<*9l'3):it'^iliili*4'«i|< 

COS r /PROF nra/B I »s 



perce:nt 


COSTS 


pROfrr 


Pin 


iO 


16l>0 


360 


35i0 


11 


JAOO 


374 


a?i96 


12 


3400 


432 


4033 


■S3 


:jAoo 


4AS 


4068 


14 


3A00 


304 


4104 


15 


3600 


5^0 


4140 






PRCCEBSINQ liOhPLETE 



BREAK IN 1000 
DK 
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MAJOR SYMBOL TABLE - BinniMG 




NAME 


. DESCRIPTION 1 




A» 


. OPTTON -AMSUER VARIABLE I 




F*{) 


. FIXED raUT NfflHE ARKAf I 




F( ) 


. FIXED COST AR^r I 




FS" 


. TOTAL FIXED COSTS J 




I 


. INUEX TO FIXED L:DETQ I 




11 


. NUMBER OF FIXEU COSTS ENTEREO I 




J 


. INDEX TO I'ftRIABLC tOSIS I 




Jl 


, NUMBER OF UflRIftBLi; COSTS ENTERED I 




M 


, MrtXJMUM AftRflV SIZE i 







. OlJERHEflD COSTS I 




Ql 


, (.IUfl^fTITT I 




PI 


, BEGINNIN'3 MflRKUf TO PRINT I 




P2 


, ENn:NG MARKUP TO PRIMT I 




B 


. BIT I 




fO 


, PRUFIT I 




S 


. PRJKfT INTERUAL 1 




T 


. TOTAL COSTS I 




Tl 


. TOTAL VARIABLE COSTS I 




Ut( > 


. UARIPltlLi; COST NAME ARRAY I 




VC ) 


, yARIftBLE COSr Miliar I 




Ulf 


. TOTAL VAKIf^BLL IMEi'lii PER UNIT 1 




x» 


. LINt DF ftSTERISKti I 



FUNCTIONS us£n 

J 

1 NAME 

J... 

I TAB 
I »IM 

J 



Mortgage Computation 

Program Name : MCOMPI 

This program computes monthly payments for mortgages, given 
the interest rate, the term of the mortgage, and the amount borrowed. 

Files Affected: None 

5 CLEiSR fOO 

10 REM SAVED AT MCOMPI 

20 REM MOBTSflGe COMPurATION PROBRSM -BBSIC 

30 REM itii It tttt*t**l>*t %******* tt'^'l****.1t'lllll%*.ll.*.'lf*'».t%**%it*ll:iiA*t.t*'/l.ll. 
HO REM DATA INITIALIZATION 

SO RErt tf-tii».i(ini.iiii»iitinnt*ininit*t.it*%mfinit%i>imiijnfift***ii'>i-iti-^*it.x'nni.ii 

S5 CLS 

60 PRINT "ENTER THE MORTGftGE AMOUNT" 

70 INPUT P 

Btl PRINT "EIMTE^R THE INTEREST RATE" 

90 INPUT II 

JOO IF I1>1 THEM 120 

no Tl=IJ*lOCl 

120 1=1 ll/lOO] /I2 

130 PRIMT "tNT£R THE VEARS DF THE MORTDASE" 

140 INPUT ¥ 

ISO PRINT 

160 PfiINT 

170 PRINT 

180 REM t%**i^t.l<.t^t.tt.**IHf)tt.**l(t*!Hlt**%*>titltiH.t*^il*tKlt%1H>lf*ll1HftHl* 

190 REM COMPLiriNR AND PRJMT 

200 REM *%1f*tttitlf.t**illtt**t.lll.**t.%**t1l.1llHHMHI.iH-*%ltt.»Xtn*IHt****t.t1l.* 
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310 M»I/ ( (1+1 ) C CY*1?) ~1 ) H 
220 Ml==M|iP 

230 PKIMT "it*******************************" 

340 PRINT "MORTGAeE AMOLTNT *"iP 

rSO PRINT "INTEREST RBTK "■, 1 If—/." 

■ZitO PRINT "HOWTHLY PAYMENT t";Hl 

170 PRINT "Xt.Hitli.%»*mf*X^ititilt**t1t**1t%ftt%*fllf%1t" 

230 REM *t*«****»t**iiHi*t* PRQiSRftr-l rEBMINftTIOhl 

iSO PRINT 

300 PRINT 

310 STfJP 



t%1.*.%X1f*lt.1ltii:t.i.t 



EMfER THE MORTliAGE ftMOUNT 

' 10000 

ENTER THE INTEREST hAie 

7 12 

ENTER ThTE VErtRS OF THE NORTCACE 

7 10 



NORTGI^CSE AMOUNT * JOOOO 
IHTERELST ftffllE 13 X 
MOWTHLr PftVMEWT t lJi:?.J17y 
» t « X * t !t ;» t* « « It 4i *** * )« « 1*: * It !):^ 4: t 



BREFtK IN 310 

at. 



MflJOfi SVMBDL TABLE - WCOMPl 
NftME .. [lESCRIPTION 



I 
II 

H 
HI 

P 



MONTHLY JNTEKEST RATE 

INTEREST RATE 

H0}^T(3AyE HUMl^UICAIIOM f(!|(;TUR 

MGNrHLV PflVHEMT 

MORTGAqE AMDUMT 

NUMBER OF TEfifiS FOR THE MORTD*RE 



FUNCTIONS USED 

J 

I NAME 

I fiONfi 

J 



Mortgage Comparison Program 

Program Name: MORl'COMP 

This program produces a series of outputs that arc useful for com- 
paring mortgage alternatives in terms of the eftects of amount, interest 
rate, or mortgage year changes on the monthly principal and interest 
payment and also on the total interest paid over the term of the mort- 
gage. All data is entered in response to program prompting. 

Pilss Affected: None 
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3 CLEAR fOO 

\cj REM Bfti^t'D ftT noRTcnnp 

20 REM MORTGAGE COMPARISON PHOBRfiM 

JO REM MOTE RdUMDIMQ £RRUhS HAV OCiCUft IN COMPUTED NUHPERS 

40 REM tttifttilfiHlfil/it It ti.iilt^'i.t if >i ft <f*M^lt**'Hf tit** tit**t**Hf ***$*!!:***** 
30 PtM DftTA INlTlALIJrtTION 

iO REM **+ + **+ + *i|l+*t**+ + **+(r***J^^fIH(f ****** *iH*»*****t3|!tt*****>l*t 

AS CLS 

70 PRINT "EMTEH THE ITEM TO WW V -AMOUNT tA> , JMT RflTEd), OR YEWSfV)" 

BO Sl=l 

<;0 32=1 
100 S3=l 

no INPUT fl» 

120 IFiEM **][i<[i»***ilL*Jt****:!i**»«*t*t***t****tt«»«I**]t**»***t««****li 
130 REM EWTER VflRIASI.E ITEMS 

140 HEtl ***:»**«**Jitt* ******«*«*«*«****]«****««***«:«««*** *****!((** 
ISO IF At'w-"A" THEN IIIO 

liO PFflMT "ENTER THE BEGINNING AMOUNT, ENDING AMOLMT TO CONSIDER" 
170 IWPUT fiO,P|l 

ISO PRINT "ENTER rHE INTERVAL BETWEEN PRINTS I.E. lOOO" 
1<?0 INPUT El 

200 eOTO 390 

210 IF AT< f"I" THEN 270 

220 PRINT "ENTER THE LOUEST, HIShEST INTEREST RATE TO CEMSEDER" 

230 INPUT ftO.Rl 

2^0 PRINT "ENTER THE INTERVAL BETWEEN PRINTS I.E., .25 FOR 1/4" 

250 INPUT S2 

2*0 GOTO 350 

270 IF fi*<>"Y" THEN 3130 

2S0 P-RINT "EMTEH THE LOWEST, HIGHEST WUMBER OF VEARS 70 CONSIDER" 

290 INPUT YO,VI 

300 PRINT "ENTER THE INTFRV^^L BETWEEN PRINTS I.E. ,5" 

31 O INPUT S3 

320 REM *)«**li*^ *****!* *lt*t>«l*1l«HI**t*l|i********ll**!tt****lt«**^t**^ 

330 REM ENTER CONSTANT ITEMS 

3'40 REM **t*****«*ti|<***4<***4<***4***** ******!«*** *||I*V**4***1||****1|I 

:5E0 KRINT "ENTER rH£ MDRTSfteE flMOUIMT" 

3iO INPUT P 

370 Aa=P 

3B0 IF fl*="J" THEN tSO 

390 PRINT "ENTER THE INTEREST RftTE" 

4O0 INPUT II 

410 IF I1>=1 THEN 430 

420 Il="ll«100 

4;E0 HOssIl 

440 IF A*="V" THEN 460 

4S0 PRINT "ENTER THE VEftRS OF THE MnftTGAQE" 

4^0 INPUT V 

4 70 yo=¥ 

4BO PRINT 

4<;0 PRINT 

50O PRINT 

510 REM *iii******************4*i|!***i*****«******4i***i(**i**ii«t):**« 

S^O REM PROCESS tt^lS LOOP 

530 REM »*******»*****«***»« tic********************************! 

340 FOR y=rO TO Yl STEP S3 

550 PRINT "FOR A tlORTGAWE iJF" ; V i "*EfiRS" 

560 PRINT 

570 FOR ( £=R0 TO Rl STEP S2 

5S0 PRINT "USIMS THE INTEREST RATE" ^ 1 1; "%" 

390 PRINT 

600 PRINT "MnRTGACE";TAB(15) i "MQNTHLV PI" ; TAB (30> ; " TOTAL" 

610 PRINT " AMOUNT"iTAEllS>s" PAVMENT" ; TAB (30) ;" INTEREST" 

620 PRINT " ";TAB(1S)1 " ":TABi30) ;" " 

430 FOR P=AO TO Al STEP SI 

640 REM ******* COMPUTATION AND PRINT **************** 

630 !=<Il/10O>/12 

i,6<> M"I/<(! + n t (¥*J'>)-1>1-1[ 

670 M1=H*P 

isBO 13=ni«Y*12-P 



(i<?0 PRINT PlTAB (ISJ ;P11 ; T"ftB(30) ! 13 

TOO WtXT P 

720 PR I MT 

730 NEKT II 

740 NEiCT V 

7[^0 REH t*****^ **"**** ***ttif ■it** **tll''IHi*****stit»**itt^*tii!ii3:t,'mt*i 

7(iO REM PftUBfWM TERMINATION POINT 

7 70 REM ^.i^*f.^lmltit■t^t^t*>H:^F**ii^^*f■*i^i.t*>^4t*>^^l*it'it*>^*'ttiHl■'l^t^t^^i 
000 STIDP 



RUW 'MORTCOMF'- 

ENT£k TUF; ITt'M TCI UrtRV- (IMOUNKlil ) > INT KnTCd/i OR yeflfiS<rj 

'r- I 

tWlER THIL LDWESTrHIGHEST INTEREUT Rnit 10 CONSiDEFt 

? to. 12 

ENTER THE TNTEftyflL BCTUEEN PRINTS I.E.. .35 FOR 1/4 

? ,S 

ENTER THL MaRTtiAGE rtMQUNI 

T 10000 

ENTER THE YEARS OP THE: MORTGAGE 

Y 10 



FDR A HCIHTGftGE QF 10 VEARE 

USING THE iNTf.l^CST RATE JO K 

MORTGAGE MONTHLY PI TOTAL 

flMDUNT PftYMEWT INTEREST 



10000 132.153 5SS8.35 

USING I HE INTEREST RrtfE 10.5 7. 

HORTliA(it H(lHrHI.,T ri lUTAU 

AMOUMT PAYMEUT INTCRESI 



10000 134.935 6192. 2(i 

USING THE INTERESiT RfiT£ 1 1 K 

MtiJtrcflCE MOwrHLr pi total 

AMOUNT PAYMENT INTEREST 



10000 137.75 6327.94 

USING THE INTEREST RATE il.S a 

MDRTQAGE MOWTHLV PI TOTAL 
ftHugNl PrtVtlENT iNTEREST 
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US1NC3 THE INTEREST KAlt 12 % 



MORTSftRE 



HCPNTHLY PI 



TOTftl. 



10000 I4i.^>S 7214, i2 



BREftK IN 000 
PK 



RUN 'rtORTCOMP' 

ENTER THE ITEM 10 VflPV-f^MaUN t (fl J r INT RATE(I!( UH Vgl^RIStV) 

? A 

ENTER THE PECJNN^Mi; i^KOUNTr ENIJING AMOUNT TO CONEIBER 

7 lOOOQf 30000 

ENTER THE INTERyAL BETWEEN PRINTS I.E. 1000 

T 5000 

ENTER THE INTEREST RATE 

7 12 

EN TEW THE YEARii OF THE MORTBftGE 

? 10 



FDR A MflRTQlilOE OF 10 YEl^RS 



UBINO THE INTEREST RATE 12 X 



MDKTQftEE MONTHLY J=I 


TOTrtL 


ftdOUNT F-rtYMENT 


INTEREST 


10000 H3,472 


y21^,i>2 


15000 215. 20e 


10824, S> 


SOOOO 3B«.?tJ| 


144:J3.2 


25000 338.63 


ISO'll .5 


30000 '!|30.415 


21114?, V 


**«*»*»**«1|I*»»«*******************1|!**« 


BflElSK IN 800 




DK 





M*JDR SYMBOL TABLE 



I 

I NAME 
I 



DESCRIPTION 





AO 




Al 




11 




13 




Ml 




P 




RO 




Rl 




SI 




as 




G3 




Y 




YC 




Yl 


T- 





FIRST AMOUNT CONSIDERED 
LAST (AMOUNT CONSIDERED 
SINGLE INTEREST R(!tTE 
TOTAI. INTEftEBT PftlD 
tlDHKITKEl MOMTMLV F-ATEMNT 
SINGLE MORTUfleE AHOUWT 
LOWEST RATE CONSlDEREt 
HIGHEST RATE CONSinEHEIl 
INTERVAL BETWEEN MORTAGE 
INTERVAL BETWEEN 
INTERVAL eETUEEN 
SINGLE NUMBER OF 
LOWEST NUMBER OF 



AMOUNTS 
INTEREST RATES 
MORrGftOe YEARS 
YEARS TO CONSIDER 
YEARS CONSIDERED 



HIGHEST NUMBER OF YEARS CONSIDERED 



FUNCTIONS USED 
I ,__ 

I NAME 

1 TAB 

I 



miiHiiory coninil 
and Miils 



5 Perpetual Mory System 



The two programs in this chapter pertbrm all functiotis necessary 
for the processing of a perpetual inventory system, including querying 
the file to determine the availability of specific inventory items in re- 
sponse to customer requests. 

The programs have been designed to accept and display information 
throughout the month and to update the files as each transaction is 
entered. At the end of each inventory period (usually monthly), the 
inventory transactions are summarized and monthly status reports are 
produced. Reports in the format of these monthly reports can be pro- 
duced at any time, but the account close-out option may be run only at 
the end of the inventory period. 

Since the security of inventory information may be critical to the 
effective operation of a business, care must be taken to insure the 
recovery of the information in cases of system (or file) failures. It is 
recommended that the file be copied after any significant activity and 
that a record of transactions be maintained for audit trail and recovery 
purposes. 

QperatJort of the System 

Tlie following two programs have been provided for your us<: 

1. Inventory processing (INVPROC>-This program permits adding 
new inventory items, correcting existing items, and listilng all cur- 
rent items in the file; it also provides a qucry/update capability. 

2. Inventory reporting (INVPRNT)— This program produces month- 
end reports, closes the files at the end of thcpericwl, and allows the 
inventory files to be copied for recovery purposes. 

Initialization of the files occurs as a normal part of the system's 
operation (whenever a new file name is entered); it does not require a 
specific initialization procedure. 

Normal operation of the system throughout the month involves the 
execution of INVPROC to add new items and to query and update the 
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cunrenc: file. At the end ot each month (or inventory period), INVPRNT 
mus: be evecuced to produce statements !ind then dose the inventory 
records prior to the entry of the riext period's transactions. Note thit 
the monthly statements mus: be prepared before the item records arc 
closed. The close option summarises the transactions but does not al- 
low the detail necessar)' to produce normal montJily reports. At a mini- 
mum, the recovery <filc copy) option should be executed just before 
the files for each period are closed. These "copies" can then be main- 
tained to provide a snapshot of the system's status at the end of each 
period. Furthermore, they act as the basis for system recovery and can 
be used later for inventory analysis purposes. 

The flowcharts in Figs, 5-1 and 5-2 illustrate the processing of the 
perpetual inventory system. 



ITEM 
LIST 



k ,' 



I 



I ITEM 



/ 1 

I iMVENIWf / 
\ FILE 




t OFTION? 
^ 

' UfOHTtD I 
f INVEUrORtl 
\ FILE I 

^„ Ji 



f OPMONJ 
^ ^ 

/ UPOftlEO / 
I IHt^EHTODy t 
\ IU£ V 

'i .-^A 



/ ITEM 
V SI«Tl 



\ I JPOAiEO ( 

] I rHvENTOdT I 

, V fILE V 

/ \ A 



Fifl. 5-1 Opfifatiun uf tlie i nwntorv (ifoeessing program 



OPEfiilOl! 



INVfENTORf 
FILE 



1 OPTION! ioHION! iwilONS 1 OCTIONfl 1 i Wmi 



I OPTION 1 
"I 

I FriE 

I LIST 
I ■- 



ITEM I 

USE I 

REPORT _j 



_J """'" _j; FILE ^ t FILE ^ 



Fig. 5-2 OElerfitian of the fnv^niory r^porrin^pro^r^m 
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Files Used by the Perpetual Inventory System 

The perpetual inventory system requires only one file for its oper- 
ation, a random access file that contains a record for each inventory 
item. The format of the record is shown in Fig. 5-3 , 







Itsin 


Amount 


Aver- 


Lo- 




Use 


Cur- 






Cost 


Rflcord 


Stock 


de- 


on 


ago 


tation 


C14S4 


IliSlD- 


fefi! 


Re. 




of 


code 


no. 


scription 


tiansl 


C051 


CQila 


code 


ry 


Lfse 


ceived 


Price 


floods 



z$ 



D$ 



0$ 



V$ Lt CS U$i) UOS ROS PS 

Occurs 12 times 
Fig. S-3 Record forrnst 
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MAJOR SYMBOL TrtELE - PERPETUAL INVENTORY 




FONCTinNS USED 


NAME 
Alt 


. , DESCRIPTION 

. . TEHF' MN3UER VARIABLE 


NAME I 


TAB I 




C* 


. . INy CLASS CODE - IN FILE 




GOSUB I 




CO 


. . hfUMEftlC CO* 




RETURN I 




CI 


, . TOTAL COST OF GOODS SOLD 




OPEN I 




CO* 


,. COST OF (3DDII5 - IfJ FILE 




FIELD I 




C9» 


, INPUT DLAsu cam 




CLUSE I 




D* 


. , DESCRIPTION ■ IN FILE 




e£T t 




Dl$ 


, priOCESSINC IiATS 




PHT I 




D9* 


. INPUT DESCRlfTION 




LEN I 




Ft 


. INPUT FILE NAME 




LOr^d) I 




Fit 


. OUTPUT COP>f rjLE Hfim 




CVI I 




I 


. INDEX AND ARRAY PQIWTtIR 




WS 1 




I» 


. ITEM NUMBER -IN FILE 




MKIt I 




Ilti ) 


. IfEM NUMBEIV ARRrtY 




MKS* I 




!(;» 


. ITC« NUflBER IN 




LSET I 




J 


. IMItEX AMD ARRAY PCIINtTER 




DIM I 




K 


. RECORD « TO READ/WRITE 




SPACE* I 




Kl 
L* 


. RECORD *^UMEER TD ADIi 
. LOCATION CODE - IN (-ILE 










LI 


, LAST RECORD MUMBER USED 








L? 


. LKNCiTH OF UAftlABLE ] 








L9* 


, INPUT LOCATION ] 








Ml 


. MAX NUMBER U^■ ITEMS ] 








H3 


. NUMBER OE INLPEWTOftV ITEMS 











. NUMERIC 0» ] 








0* 


. QN-HAND - IN FILE J 








01 


. OPTICIN NUtlfciEK ] 








f- 


, NUHERIC Pt ] 








p* 


. SELLING PRICE - IN FILE ] 








P9 


. PRICE PAID PER UNIT ] 








a 


. pUi^NTITY OF rRANSSCTION ] 








R 


, NUKERIL; fit 1 








Rt 


, REOftllER POINT ■ IN FILE ] 








RO 


. NUMERIC fiO» ] 








ROt 


. RCUD CUHfiENT PERinii - IN FILE 1 








RltO . 


, RECORD POINTER ARRAY ! 








TB* 


. flCTION CODE 1 








T?* 


, ACTION CODE 1 
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uto 


.. USE ARRrtr - IN FILE 




U( ) 


.. NUMERIC use AftRAY 




uo 


.. NUMERII- UO* 




uo* 


.. USE CUftREMT PERIOD - IN FILE 




V 


, . NUMERIC y* 




IJt 


.. UNIT AVG COST - IN FILE 




w 


. . NEW AWERflOE COST PER UNIT 




x« 


. . LINE OF flSTERI&KS 




Xlt 


. . DUMMY UrtRI(*BLE 




3<2* 


,, LINE OF HVPHEKB 




2* 


,. RECORD CODE - IN FILiT 




ro* 


,, CONSTBNT IN CHARACTER FOfJM 




Zl* 


.. INPUT CCJPY RECURD 




22* 


■ , OUTFLhT COPY RECORD 



Inventory Processing 

Program Name: INVPROC 

This program performs the dayco-day processing functions of the 
perpetual inventory system, Four options arc available to the operator 
through keyboard responses to program messages: 

Option 1 lists all current records with their associated record num- 
bers (in the file). 

Option 2 adds new inventory items to the file. The program re- 
quests all necessary information from the operator. 

Option i corrects information in the inventory tecord, 

Option 4 allows the operator to query the status of an inventory 
item or update the inventory record to indicate the usage or receipt of 
a.dditional supplies. 

S CLESR 9CIO 

10 REM SAVED AT INVPROC 

20 REM PE:RPETUAL INVENTORY SYSTEM 

30 REM ■t.1l'l(^%if.*^*1l1(1tXilit'itt*it'll%ittillt!ltt.tii.*SVK1Hi31HHHI.1H)txt*t*t*1i**iHl.it 
40 X»= "*************** *»*)t**»i**j:t**t1(tt ****** Jit************:*** " 
50 X2*""-- ■ ■ " 

35 cue 

to !0»"t1KI»(!"l) 
70 M3=50 
ao Ml=200 

fC, DIM I t*<Ml) pRl(Ml> JJ*()2) 
LOO PRINT "ENTER IWVEIWTORV P'ILE: WSMe"; 

1 10 iNi'UT r~a 

120 i^nSUQ Anu 'FILE OPEN ftNl] DEFINE 

130 fiOSUB SiiO 'F3llILr> ITKM TABLE 

140 PRINT 

ISO PRINT X« 

iao PRINT 
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170 PRINT "THE FOLLOWING DPTIDM3 ARE AVAILflBLE;" 

IBO PRINT 

1'7<> PRINT TflB (5) ! " 1 . . ITEM 1. 1ST (WITH RECORD NUMBERS)" 

300 PRINT TflB(5);"2. .flDDIhtS NtW IfKMB" 

210 PRINT rrtbiS) ; "-i. .CORRECTING ITEM INFORMflTroN" 

220 PRINT rAB(S)i"4. -GUERV AND UPDATE PROCESS" 

HSQ PRINT 

240 PRINT "tiNTER OPTION OESJRED"; 

250 INPUT 01 

2fi0 IF Dl = l THEN BOSUe 2200 'IT EH LIST 

270 It* Ol=2 THF:n GOSLIB 1040 'ADD MEW ITEMS 

aao IF rii=3 then isosub 2340 ^correct item info 

S^JO IF 01=4. THFN G03LIF 1630 'ADD TRfliMSACT IDWS 

300 PRINT 

lllO PRINT "no VOU Ml'.iH TO CONTINUE (V OR N)"j 

320 INPUT Alt 

S30 IF LEFT«<rtl«, 1 )«"¥" THPN 240 

340 Rf£M **«.«*»:«.***«***«***«** «««*****«»****»*«**************«** 

350 REM PhOUNflM TERPIl NfjTION T'OIMT 

3iiO REM »*».1K1Litx-ti-t:-ttt:i.*tkx*.1i:tli.i*ti* ***■*»:*,***** *********** a* tttttt 

370 PRINT 

3aO PRINT 

390 PRINT "F-ROCeSSlNG CONPLETE" 

400 PRINT 

410 STtJP 

420 REM t******i:H^iH.*AiH:**i^*!Hii:t>Ht*i**i:**i-*^**-it*i-t*^*-4Hi/***iHf* 

430 REM DPEM AND DfFlNE FILES 

440 RFM *ltlltinil.************1t************ir***********t.4*********** 

450 OPEN "R" , 1,F» 

460 FIELD 1,2 AS Z«,8 AS !«,',;4 flS D«,2 flS OS, 4 AS V*,4 AS l»,4 HS r* 

47f) FOH 1=1 TO 12 

ISO FIELD i,(I-l)*2+54 ftS Xi*,2 AS3 IJ» ( I > 

490 Ne;<T I 

50O FIELD 1,73 flS XI*, ? rtS UO«,2 AS RO«,4 AS P*, 4 AS CO*, 2 AS RS 

ElO GET 1, 1 

S3« Ll=CUI !i*J 

530 IF LKl THFIN Lli=l 

S40 RETURN 

5S0> REM itiH:****!**************;***************!!:********:**!^ **]«#» 

5iO REM TABLt' FN! UP 

570 REhf **i It t* t It t**^r.^t*i^'^*i■*>^^l■**'^*f'^■*^***'i■**■***^■tv* ****** ******* 

sso r-i 

asO FDR K=2 1 O LOF ( 1 > 

600 E0SU1* BOO 'f-lLt. READ 

610 IF -l*<>"**" THEN 6S0 

i20 Il'ttn-:!* 

630 R I C I ! =K 

640 1=1+1 

650 NEXT K 

AAO M3=I-1 

670 RETURN 

ii^O REM FIND ITEM 

700 REN !i**i***t*********t ************************** *********** 

710 K-=0 

720 FOR 1=1 TO M3 

730 IF I9«=Il*a> THEN 770 

740 NEXT I 

7LW PRIMT "TTKM NOT FOUNH 

740 GOTQ 7a0 

770 K'=R] (I ) 

7ao RETURN 
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790 REM «**t**)|it**t**iHit*tit*t** + t****i(** + *»* + *t«*#***i»** + ***** 
SOO REM FILE READ 

920 GET 1 , ft: 

840 V«=CWS(V*) 

SAO P=CVS(P*) 

aao rto=cyi (rosj 

890 R=CIJI CR») 
■fOO ftETURM 

910 REM «**it**t**»t* + + *it***** + iH** + **itti|i« + *t** + i|i*+*t + *** + :timij»i(t 

?20 REM FILE WRITE 

'?30 REM lt**«***lll!ll*ll;^4<>tlF*^**)l<4<i|<i*i*:|<*iritlk^**t4:***i<lttit»i|i|<3r>r4i*4;K«t** 

"JAO LSET D4=nKI«<Ql 

•JSO LSET Vt-MKS»(V> 

960 LSET UOlt=MKI*(UO) 

970 LSET P*=MK3*(P> 

■ifao LSET C0*=MKS«[COl 

990 LSET RO*-MKT*(R0) 

1000 LSET RS=MKI*(R) 

lOlO PUT 1,K 

1020 RETURN 

1030 REM t*tt*t*l.*t*tt*:flH.t**»*tt»**it*»**t»**t*ll*.t*».****t**t**t 

1040 REM AND NEW INVENTORY ITEMS 

1050 REM **** ♦**** + =!<**»**»»**♦**«*****************************« 

1060 PRINT "**♦** AD!) NEW INVENTORV ITEMS *****" 

1070 PRINT 

1030 PRINT "EMTER THE ITEM STOCK NUMBER"; 

1090 !<?■(>=" " 

llOO INPUT l^i 

mo IF I9»'="" THEN IfltO 

J 130 M3=M3+1 

1130 IF LENCIVSJ'.S THEN iva=1^3<-" "iSOTD 1130 

1140 I1*(M3)=I9» 

1150 PRINT "ENTER THE ITEM DESCRIPTION": 

llfiiJ INPUT 09* 

1170 QOSUB 1480 'FIND RECORD « 

lieO PRINT "ENTER THE AMOUNT ON HAND"; 

1190 INPUT n 

1200 PRINT "ENTER UNIT COST"; 

1210 INPUT V 

1220 PRINT "ENTER LCCATION CUDE"; 

1230 INPUT L9* 

1240 PRINT -ENFER INVENTtJRY CLASS COUE"! 

12S0 INPUT C?* 

1^60 PRINT '■ENTER RELLINS PRICE"; 

127':i INPUT P 

l2ao PRINT "ENTER REORDER POINT"; 

I 790 INPUT R 

1300 FDR t=l TO 12 

1310 LSET Lltin=ZOS. 

1320 NEXT I 

1330 LSET D«=D9* 

1340 LSET I*=I9* 

1350 LSET 2* = '-*f 

13iO LSET L*=!L<?« 

1370 LSET CtaC?* 

13S0 C0=0 

1390 Rl(M35iiKl 

14O0 (<=K1 

14IO GOSl>B 920 "FILE WRITE 

1420 K=l 

1430 LSET I»=MKI*a.n 

1440 BOSUB 920 FILE WRITE 



ItSO GOTO IIJBO 

1 *>*.(."> RETURN 

1A70 REh *****»**»***«■*»***»***»**«»»*»**»******«*********. K***« 

ItaO REN FIND RECORn NUMBERS 

1490 REM **«**«****«*««»**«**:*«**«****************««*♦*****«*** 

ISOCi 1=2 

1510 J=l 

1520 IF I<=L1 THEN 1560 

lS3i;i L1=L1 + 1 

15«t0 1=L1H 

1S50 BPTO lAOO 

JS60 K=I 

1S70 fiOSUB aOO ^FILE READ 

15B0 I-I+l 

1590 IF r»= ■'**■■ 1HEN 1S20 

IfiOO h^l = I-l 

1610 RETURN 

1620 REM «**»**»******;**** **♦**#***»*****«* t.ifi» ****** **»*»***;***. 

I 6 "50 REM QUERY AND Uf^D^TE 

1640 REM tt**3*^*****'HH.***ilt* ******* ********************* ****** 

Itao PftlWT '■»**** GUERV ftNT> UPDATE **+«*" 

1660 PRINT 

1670 K«0 

16B0 PRINT "ITEfl NUMBER"; 

li,ffj I<?«=" ■■ 

l7i:'0 INPUT I";* 

1710 IF I9«="STDP" THEN 2180 

1720 LSl^LENdV*) 

1730 IF L7<;8 THEN J9»=I'?«+" " = et)TD 1720 

1740 SOSUB A90 'FIND ITEM 

175<i IF K=0 THEN lliTO 

I7i0 PRINT "ENTER QUERY(Q), UPDATE'U>, OR QUERY /UPDftTE iEU>"; 

1770 INPUT T*** 

17aO IF T-Jt^'-G-' OR T';i-"U" OR T'?*="(1U" THEN J8J0 

1790 PRINT "ERRDNEDUS CGDE - TRY AfifilN" 

IBOO GOT!) 1760 

leiO GOSUB SOO "FILE READ 

ISjTO PRINT 

1830 IF T9«»"U" THEN 1090 

IB'tIO REM ****t*************t** QUERY RFCUK'D *.*1Ht***.**IS*tlHt»mit 

ISSJO PRINT "BTK *t" ; TAB ( li:i) ; "DESCRIFTIOM" ; TAB CiSt ; "OW-HAND"S 

1B60 PRINT TfiBlJl'l* ; ■'PRIt:E"!TAB(34) ; "LDCATIDN" 

1S70 PRINT I«;TAB(10>;D*;TAEi<35) sOiTABt^tlsPsTABlS*) ;L1B 

(aeO PRINT 

1B90 IF T<?*=="Q" THEN 2170 

190fv REM «*i»t«*Kt**H«***l.*** UPDfiTE RECORD ******************* 

1910 PRINT "ITEM RECEiyED (R), OR SOLD <S>"; 

i9:?o rat="" 

1930 INPUT T8» 

1940 IF Ta*="R" OR rB«="S" THEN 1970 

19S0 PRINT "CRRDNEOUS CODE - TRY AGAIN" 

I960 CnTO IVIO 

V970 PRINT "ENTER (XJAMTITV'j 

19B0 C=0 

1990 INPUT G 

2000 IF TB*="R" THEN 30S0 

2010 UiJ=U(>Q 

iOM co-cd+e*v 

2030 LSET CO*==HKS*<CO) 

201O a=D-Q 

2050 PRINT "PRICE ISi")K*P 

2O60 PRINT 

2O70 BDTO 2160 

20a0 RO=ftO+Ci 

2090 PRINT "EWTER UNIT PRICE"; 

a 100 INPUT P9 

2110 V9=lta*P9i-n»V>^ iO+Dl 



2t30 PRINT "INVEWTORY VALUE OLD-";V;" NEW-";V9 

2130 PRINT 

21 40 V=Vf 

2150 0=0 +Q 

21*.Ci BDSUB 920 FILE REWRITE 

2170 aOTD 1670 

21KtO RETURM 

2190 REM *****t + ***i|i*t»**tt*****»*t»!t***t****i|i**<t**** + !|i*t**»i|l + * 

220O REM PRINT flCCOUWI NUMeGRS 

2210 RtTM t**t*****lt***»***1l*ti**ll***IHI*****!tX***ll*t*****t*t**** 

2220 PRINT "***t* Il-iVENTORV ITEM LIST ****»" 

7230 PRINT 

22'K> PRINT 

22S0 PRINT X* 

22iO PRINT 

2270 PRINT "NBR';TAB(1C>1 !"ITErt'-!TAB(20>j"REC «" 

22aO PRINT 

2270 FDR I -I TO M:J 

230O PRINT 1; TfiBtlOJ ; Il»tl) ;TfiB(20) :R1 (1) 

2310 NEXT I 

2320 RETURN 

2330 REM t***tt**1IK**t**t*.1l**t*ilimt***tt*ll**tll*t*.*t*****ltt*»*t* 

23'VO REM CORRECT <^C COUNT INKORNATION 

2350 REM tit*t*t:*ttt*tt»**imt*timtt* nil t***.**tt**tt ******* t*t*lt*t 

2360 PRINT "**tt* CORRECTIONS **»**" 

2370 PRJNT 

23ao I9«=i"" 

2390 PRINT "ENTER ITEM NUMBER"! 

2400 INPUT !•?* 

2410 IF !<?♦-■'" THEN 29'?0 

2A20 L9=LEN<I7*) 

2430 IF L9i'B THEN I'^i^I'Iti-" " : GOTO 2420 

2434 IF Lf<.e THEN t9*=19* + " 'jGDTD 2420 

24+0 GOSUB ft90 'FIND ITEM 

2450 IF K=0 THEN 2380 

2460 PRINT "DELETE THE 1T£M(Y OR N>") 

2470 Al«="" 

24aO INPUT fil* 

24'?0 IF LEFT*(A1*, 1 K>"V THEN 2S30 

2S0O LSET ?•»=•■ ■' 

2510 II* (I )="*»***»***" 

2520 GCTO 2970 

2530 PRINT "ENTER THE INFORMftTIOW TO BE CHANBEO" 

2540 PRINT "irEM(I>, DESCtDJ, LDQCLJ, CLflSS([;j, "; 

2SSO PRINT "PRICE(P>, REORDER tR) 

2560 Al»i"" 

2S70 INPUT Ali 

213SO IF Al*="" THEN 5390 

2S90 mSUB son FILE READ 

2A00 IF LEFT*(A1*,1)-;>"L" THEN 2660 

2il0 REM iit****************^ CHANGE LOCATION **i|i*1i***t**tt***t* 

2620 PRINT "ENTER NEW LOCATION CODE"; 

2430 INPUT L9* 

i640 LSET L»~L9» 

26 SO BQTO 2<?70 

2660 IF A1*<>"D" THEN 2720 

2670 REM ttH********!!****** CHAN6E DESCRTPTION Itttitit*********** 

2680 PRINT "ENTER NEW PRODUCT DESCRIPTION"; 

2690 INPUT D9± 

2700 LSET OS 5.09* 

2710 GOTO 2'?70 

2720 IF Alt<>"C" THEN 2730 

2730 REM »*>*»».*♦*******««***«* nHANGE CLASS ****************** 

2740 PRINT "ENTER NEW CLASS CODE"; 

2750 INPUT C9» 

2760 LSET CSi'C'?* 



27V0 BOia 2970 

27aci IF ftl4i>-"P" THEN 2940 

S7<?0 REM **»:*t*!|l**»+*******t« CHwNSE PRJCE **»***» *a***^»* «** ** 

^SOO PRINT "ENTER MEW PftlCE": 

2B10 INPUT P 

3aEO LSE^T P1i=MKS» (P) 

2830 (SOTO 2970 

2a40 IF AISO'-R" THEN 3900 

rgpiO REM «***t***t*«***+*»**** CHfiNOE REORDER POINT *«*****!»*** 

29A"> PRINT "ENTER WEW REORDER PDIWr-i 

2370 INPUT K 

2S30 1-.3ET r*=mk:i*(R> 

2390 6i3TO 297L1 

290O IF AISO'T" THEN 2990 

?9]0 REM *#»*»*«li»»**»*tl|(* Cl-tANOE ITEM NUtllsefi **** + *» til**** t** 

2<J20 PRINT "ENTER NEW I Teh NUMBER"; 

i:930 INPUT I-?* 

29J»0 IE Lew[I9i6>iS THEM Ift'^I'itt" "iGOTG 2940 

2950 n*(I)=I'?» 

2*iO LSET T*=I9* 

2970 GOSUB '?20 'REWRITE FILE 

29BO GOTO 2370 

2990 RETURN 



RUN "INWFRQC" 

ENrEf? IMyeNTDKr IILE N;?ME? IN^FILE 

THE FDLLOUING OPTIDMS rtRE AOAILflBLEJ 

l..ITEt1 LIST (WITH RECORD NUHSEFVS) 
2. .ADDIM(i MHM HEMS 
3..CORRECTIN(5 ITEM INFORMATION 
4..aUERY *NI) UPDATE PROCESS 

t^flf* rtDD NEW INI,/ENTGRY ITEMS ***** 

ENIER THE ITEM STUCK WUMStR? 11 til 

ENTER THE ITEM DESCRIPTION? SUPER UIDGET 

ENTER THE AMOUNT ON HANPT 10 

ENTER UNIT CQSTV V,?E 

ENTER LOCftTION CUDET 0515 

ENTER IWUEWTOKT CLASS COUE? ti 

ENTER SELLING PRICET 2f,99 

ENTER REOftDCR POINT? 5 

ENTER THE ITLM STOCK NUMIiEfV? Z2222 

EWreR THt ITEM DEEC(*lfriON? MIDPLE CLASS WIDGET 

EtITER THE AMOUNT ON HANH7 20 

EHTER UNIT COST? i.5i 

ENTER LOCATION COIiE? BSl'^ 

ENTCR INVENTORY CL.ABS CQllE? £ 

ENTER SELLING PRICE? 19. ■JS 

ENTER REORDER POI(v|TT 10 

ENTER rH£ ITEM SIOCK NUMBERr 3Mi3 

ENTEft TH£ ITEH teSCRIPTIONT eU&GET WIDGET 

ENTER THE fiMDUWT ON HAND'? SO 

ENTER UNIT COS I ? l.?3 

ENTER LOCrtTIOW COtiL? B5J3 

ENTER INVENTORY CLi^SS CODE? C 

EWIER SELLING PliJCe? t,m 

ENTER REORDER POINT? iO 

ENTER THE ITEM STOCK NUMBER? 
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no YOU WISH TD CONTIHUt: (T OR M)? Y 

ENTER OfTION DESIRLIl' t 

*»*«* INUENTURY IrtN LXSr ***** 



*********************************************************** 
HER ITEM REC + 



1 


llllt 


2 


2 


22332 


3 


3 


33,^33 


4 



DO VOU WISH TQ CONTINUE <r OR N)? N 



PROCESSING COMPLETE 



BRE(4K IN 410 
OK 



RUN 'INVPRDC- 

ENTER INVhNrOrtV FtLE NRME? iwyriLE 

THE FOLLOWING OPTIONS ARE AVAILABLE; 

L.JTEM LIST (UITH RECORD WUMEEfiS) 
2.. ADDING NEU ITEMS 
3., CORRECTING ITEM IH^DRMATIDN 
4,.0UERY AND UPHATE PROCESiC 

ENTER OPTION DESlREIiT 3 
tlf*m* COKRECTUINS 1K*!|I«!K 

ENTER ITEM NUMBER? 11111 

DELETE tHE ITEMCC OR W>? N 

ENTER THE INFORMATION TO BE CHANGED 

ITEM(I)i DESC<t)i LDC<L>» CLASBtO. PRICEtPJ. REO(fUeR<R) 

7 L 

ENTER NEW LOCATION COI'ET EWO 

ENTER ITEM NUMBER? 

DO YOU UIGH TO CONTINUE <Y (JR N)? Y 
ENTER OPTION DESIRED? 1 
***** OUERY AND UPDl^Ti; ***** 

JTErt NUMEiER? 11111 

ENTER RUERY(0)t LFPDflTE<U>r OR QUERY /UP DATE (QU)? B 

STK * J&ESCRJPTION UN -HAND PRICE LbLAIION 

Mill SUPER MIDISET 10 2?, 99 B500 

ITEM NUMBER? Hill 

ENTER aUERY<a). UPDATE(U)t OR QUERY/UPDATE (QU)? OJ 

STK ♦ DESCRIPTION ON-HAND PIJICL. IDCAIIUN 

11111 SUPER WIDGET 10 29. ?9 DSOO 

ITEM RECEIVEU (R)>- DR SOLD (S)? S 
ENTER E3UANTITV? 1 
PRICE is: 29.99 
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ITEM NUMBER? 11111 

EMTER ElUeRV(0>, UfIl(*rE<U)» OR OUERY/UfTrtTE <aU>? Q 

STK # DESCfilF'TION ON-HANU PRICE LDtrtTION 

IJllJ SUPER UIDGET 9 29. 99 BSOfl 

ITEM NUMBER? 11111 

EMTER OUERrtO)- UPOflTE^U). OR OUeRV/UPMTE (OIJ)T U 

ITEM RECEIUeU (R). Oft SOLD (3)? R 

EMTEB nUftMTITr? 5 

ENTER Utill PRICE? 11,45 

INMENTOBY U^iLUE OLD- f.9-J NEW- 10.4057 

ITEM NUMBER? 
irtM NOT FnUND 
ITEM NUMBER? STOP 

DO YOU WISH TO CUW7INUE (Y OR M)? N 

PROCESSING COMCl.CTE 

BREftK IN 410 
OK 



Inventory Reporting 

Program Name: INVPRNT 

This program performs end-of-monrh (entl-of -inventory-period) 
processing. It produces inventory reports and permits the inventory file 
to be copied for recovery purposes, Five options arc iviilabte to the 
operator through keyboard responses to program me$j;ages: 

Option 1 lists the current contents of the inventory file. 

Option 2 prints an Inventory Use Report for the current period 
and also provides prior usage infornnation. 

Option 3 prepares a report portraying the status of all inventory 
items as of the date the report is run. 

Option + closes the inventory records for the current period. Cur- 
rent period usage is given a history status, and the current period fields 
ire set to zero. In addition, the option produces a summary report de- 
tailing the usage and cost of each item sold during this period. Ontc the 
option has been executed, the Inventory Use Keport loses much of its 
value. 

Option 5 allows the operator to cteate a duplicate of the inventory 
file. At a minimum, this option should be executed monthly, just prior 
to closing the accounts. 
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5 CLfAR too 

IC REM SttWED p^T INVPRNT 

20 REM PERPETUAL IMVENTDRY ravSTFM - REPORTS PROGRAM 

70 REM tit t»*»>Hl**t**tti*ltt *************** *************** ****** 

4C )i^="****if*t***ii***ii*********»*t********.t**.**t ******************* **********" 

50 K2*=" ■ 

S5 CLS 

90 DIM Il*<Ml>„f^] (Mi> ,0*ilJ-> .U(l?> 
100 PRIWT 'TNTER IWVENTDRY FILE WAME"; 
110 INPUT F* 
12lj PRINT "ENTER TOfiPlY'S DWrE"; 

130 rNPi.n ni* 

l^tO RDSUB t70 'FILE OPEN AND DECLINE 

ISO GOSUB 600 'BUILD ITEM TftBLE 

160 PRINT 

170 PRINT X* 

ISO PRINT 

I've PRINT "IHE FUULOWINS OPTIONS ARE AVAILABLE:" 

200 PRINT 

210 PRINT TA&<5> ! " 1. .FILE LIST' 

520 PRINT TAfa(3).-"2..USe REPORT" 

230 PRINT TfiB<5) !"3. . IhH/EHinRV STATUS REPORT" 

2ttj PRINT TAB (S);" 4.. CLOSE Ar.COUWTS iEHD OF MflMTH)" 

230 PRINT TfSBISl s "5. .Copy INVENTORY FIL.6" 

260 PRIMT 

270 PRINT "ENTER OPTION DESIRED"; 

2S0 INPJT 01 

290 IF 01=] THEN GOSUB 1 100 'FILE PRINT 

300 IF 01=2 THEM BOSUB 1130 'PRINT USE INFO 

310 IF 01=? FHFN GOSUB 1710 'STATUS REPORT 

320 IF 01"4 THEM GOSUB 1920 'CLOSE ACCOUNTS 

330 IF 01=5 THEN GDSUD 2270 ' OOPV FILE 

340 PPINT 

350 PRINT "!>□ VOU WISH TD CONTINUE (V OR N>"i 

360 INPUT imt 

370 rF LEFT*fAi*, n="V" THew ;70 

:;S0 REN ****** i*******)lt**)l ******************** ************** 

.190 RKM PRDliRftM TERMINimrnN FTlINT 

400 REM ********** ************.**************.********* ******** 

110 PRINT 

420 PRINT 

430 PRINT "PRQCESSINC COMPLETE" 

<I40 PRIMT 

4 EC SHOP 

460 REM »*************i*************tt*********************** 

470 REM npFN ftWD DEFINE FILFS 

4S0 REM ********************.*********X*********************t* 

470 OPEN "R", 1,F« 

SOO FIELD 1,2 AS J+.S AS I*, 24 PS I>*,2 AS 0*,4 flS V*,4 AS L*,4 ftS c;« 

510 FOR 1=^1 TO 12 

520 FIFLD t, (I-l > t:^+^:4 fiS XI*, 2 ftS U* 1 1 1 

530 NEKT I 

S40 FieLD 1 , 7B AS XI*, 2 AS U!l*,K AS R0*,4 AS P*,4 AS CO*, 2 AS R* 

530 QET 1, 1 

560 LI=CVI (Z*> 

570 IF LKl THEN Ll = l 

5SO RETURN 

590 REM ******************************************************* 

600 REM TABLE BUILD 

620 I-L 

630 FDR k;=2 TO L.OF(l> 

640 eoaUB 840 'FILE RE ftp 

6S0 IF 7«<>-"**" THEN 6?0 



i9Ci NEXT K 
700 M3=J-1 
710 RETURN 

730 REM FfND ITEM 

740 REn itt*lllltt«t*«4lt««*>l*«**)tt*«*it*>t|ll<*«**it«»4ii(i*)ii|<^^t«(it*f.««:(ll<l|( 

7S0 K=0 

7iO FOR 1=1 TD M3 

770 IF I?*=II4(I) THEN SIO 

7B0 MfXT I 

7^0 PRINT "ITEM NOT FQUMD" 

800 6DTD a30 

aio k:=ri (H 

820 RETURN 

BZf) KFM ili»t*»t**t«itt«*[il(«««iili1i*t*itx»it*itttit**illitili«L*.:tTiliti:t«*»:tti*t« j< 

840 REM FILE READ 

BiO GET 1 ,K 
S70 Q=(;\JI (0*) 
BS(> V=CVS (V«J 
S90 UOaCVI (L10«) 
■?00 P*CWS(P*i 
910 CO=CVB(CO*> 
^20 RO^CVKRO*) 

•i'zo n=cyi (Rt> 

940 FOR J=l TO 12 

950 U1JJ=CVI<U»(JM 

?60 MEXT J 

970 RFTURM 

?80 REN tilit)[!li*t:!lit*»!li*»»Xi«**!li**«!li«*]|i!«««««»il'ttKii«*it^4t:t^!tit.*)tt[t*« 

•?<fO REM FILE WRITE 

1000 REN ««k«*t:tit**4t«4»*i(it)c4iil*4ii|l4i|i^i|i^**f ;lt*t4i;l<t*if^44it *it*«*^*» t 

1010 FOR J=l TO 12 

1020 LSET (J*(J>=NKI*(U<J> ) 

1030 NEXT J 

1040 LSET U0*=MKI*(O) 

lOSO LSET CO«=MKS«(0) 

lOAO LSET RC>*=t1KI«(0) 

1O70 PUT 1 , K 

lOSO RETURN 

iCJCi REM tti*ilt**t*tt***t****t***tlCtlXil*****)ii*i:t!liiH:im:HHt:ti**t* 

llOO HEM FILE PRIWT 

lllCi REM **'t.t*t.*1ttil**tilf*%^'t**ll-***iiie*t*****if1l*tim***t**tttt** 

1120 PRINT "POSITION PAPER NOH"; 

1130 INPUT ftl* 

U40 LRRINT " " 

USO (.PRINT X* 

1160 LPRINT •■ " 

1170 LPRINT TABUS) i"FILE COrJTENTS - "iF*;'' HS OF;"iDl* 

IISO LPRINT " -■ 

ll-JO LPRIMT )i2* 

120O LPRINT "ITEM", rflB(lO)^ ■■DesCRIPTIDN";TAB<41>; ■'ON-HflHD":TftB(S0) ; "ITEM COST" 

1210 LPRINT TAB ffiO) ; "LDC"; TAB (i5); "CLASS" 

t£20 LPRlt4I X2* 

1230 LPRINT ■■ USE FOR PREVinuS PERIODS - EARLIEST FIRST" 

1Z40 LPRINT X2* 

12B0 L.PffTNT "CUR USE" : TAB ( 10) ; "RCWD" j Tft& <2C') ; "PRICE" ) TftB <30) ; "COST -GOODS" ; 

1240 LPRINT TAB (421 ; "REORDER AT" 

1270 LPRINT XS* 

1280 FOR 1=1 TO M3 

1290 K'KUl) 
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1300 GOSUB 340 'READ Fll.e 

1310 Lf-RIMT It; TAB! Irtl ;Dt;TflB<41) ;0;TflB(HO) ;1J;TAB(60> si. *;TflB(i5) j C« 

1320 FOR J=l TU 12 

J330 I.FRINT TflBf (J-1 ) *6+l > !lJfJJ j 

1340 NEXT J 

13!30 LPRINT 

1360 LPRINT UO!TABC10>;R0!TftB(20) ;PjTAB(32>5£;">iTAB(44} iR 

1370 LPftINT X2* 

1380 NEXT I 

1390 [PRINT ■■ " 

1400 LPRirifT X* 

1410 RetURM 

1470 REM 4*ttll**ll*Jtil****llt******tt****^tllt*l'tt**t*1/*'lf***if*t*'/t** 

1430 REM USE REPORT 

1440 REtl t**t***t***lt******************tt*1l*tt*t*****tiHt*.**lt** 

1450 PRIMT "POSITION PAPER NOW"i 

1460 INPUT Al* 

1470 LPRIMT " " 

14B0 LPftINT ;(* 

1490 LPRINT " '■ 

15O0 LPRINT TAB <25> ; "INVENTORY USE REPORT hS DF:"iDlii 

ISIO LPRINT '■ '■ 

1S20 LPRIMT X2* 

1330 LPRINT '■ITEM":TftSll(»;"CUP! US1£ " ;TAB(20i ( "CQST-EOODS" s TAB (31) ; "C1N--HAND"; 

1S40 LPRINT TAB (42) ; "REORDER AT" 

ISSO LPRINT *■ use FDR PftEVIDUS PERIODS - EARLIEST FIRST" 

1360 LPRINT )!2» 

1370 FOR 1=1 TO ti:; 

15Si:i K-Rl(I) 

ISfO GOSUB 040 -READ FILE 

160O LPRINT ia(TAB(12> JUO; TAB(24) ;C0;TfiB(34>!O;TflB<141 ;R 

1610 FOR J=l TCJ 12 

1630 LPRINT TAB( (J-1)*6+1);U(J>; 

1630 NEXT J 

1640 LPRINT '■ " 

1650 LFPtNT X24 

1660 NEXT I 

1670 LPRINT " ■> 

16S0 LPRINT >;* 

16=?;p RRTLRN 

I7o0 REti it*****tt**i^***t*t**ti**t*t**n*»»*tt!t*t *******■«%** t*** 

1710 REM STATUS REPORT 

1720 RRM » *t*lttxlt*tim**tllt**.* »*****.*** *tt*>t*tt.*t at* ».***t**lti^*tt 

1730 PRINT "P[JS:TIDN PAPER NOW"? 

1740 INPUT Alt 

17S0 LPRINT " " 

1760 LPRINT X* 

1770 LPRINT " " 

17S0 LPRINT TAB< 15) ; "INVENTORY STfiTUS REPORT AS OF!"!Dl* 

1790 LPRINT " " 

IBOO LPRINT " ITEM";TAB(H"K ; "DESCRIPTION" ; TAB 1 42 > ? "ON-HAND" s TAB < SO) ; 

ISiiJ LPRINT "AVG COST"jTA&<tO>i "REORDER AT" 

1920 LPRINT Xl't 

1830 FOR 1=1 TO (13 

1940 K=R1 ( I) 

laSO BOSUBi 840 'READ FILE 

iSiCi LPRINT I + rrAea0>iD*;TAe(443;Q;TAEi(5O)iy;TAB<63);R 

iB'/o fie XT r 

1880 LPRINT " " 

IS-^O LPRINT Ki 

1900 RETURN 

19iO RhM t***t**t»»lttit*tlt*tttmt^ttltt*********tt*****ti*X*ti*Xi.** 

1920 REM CLOSE OUT INVENTORY MONTHLY 

1930 REM **!tt**tll***t*1lit**t*****t*tlt*t**t**li1l!t*i.*4tt!t****^**:** 

1940 PRINT "ARE ¥DU CERTAIN IHAT VDIJ WfiNT TO CI GSE ACCdUNTS (Y OR M)"; 
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IT^O INPUT ftl« 

197C1 IF LEFTifAit, DO'V" THEN 24tO 

l^eo PRINT 

iTJCt PRINT ■'***** CLOSING lNWe.NrDR¥ ftCCOUNTS FQft PERIQB t****" 

2000 LPRINT " " 

ZOIC LPfllNT X* 

2020 LPRINT " " 

203<> LPfilNT "INVENTtiRY CONSUMPTION AS □F:"!D1* 

2040 LPRINT TftB(5J;"(fiT CLQSINI3>" 

205O LPRIfJT " " 

20iO LPRINT ■■ITEM"iTfiBaO( ^ "LISE";TAei2C>>; "COST QF HODDS" 

2O70 LPRINT " " 

3080 FOR 1 = 1 Til M3 

209 CI K=R1 ( I ) 

2100 eOSUe £340 'READ FILE 

21 lO FOR iJ=l TO II 

2120 U(LT)~UiJ+l) 

2130 NEXT J 

7i4n M():?)=UO 

3150 60SUB 990 'FILE WRTTE 

2JA0 LPRINT I«!TAB{li:i);Utl2)!TAB(20);C0 

2170 Cl'-CH-CO 

21BC NEXT I 

Zf^O LPRINT " ■■ 

2200 LPRINT X2* 

2210 LPRINT "TOT COST UP EiJQDS" s TfiSf20) ;Cl 

2220 LPRINT " " 

2230 LPRJNT X* 

2240 LPRINT " " 

2230 RETURN 

2Z6CI Ren *«****ti|t*»i|i***«»******«*«»«*»»****«»J(*****»in>i:**i((«*i(r 

2^70 REM FILE CDPV ROUT INK 

22FiO REM **H»:t]ltlf*itt*!lttt**ti***tt*!t*llt***t*lfi!i**>Ht****Sft».t3:lf 

'Z'^'m CLOSE 1 

2300 PRINT "FNTEP; FILG TO BE COPIED TO"j 

2310 INPUT Fl« 

2320 OPEN "R", 1 ,F« 

2330 OPEN •'Tt",2,Fl^ 

2340 FIELD 1,12B flS Zl» 

2350 FIELD 2, 13B AS 22* 

23fe0 FOR K=l TO L.OFd) 

2370 GFT l,i< 

23630 LSFT Z^S'fZf* 

2390 PUT 2,K 

2400 NEXT K 

2410 PRINT 

2420 PRINT "FILE COPY COMPLETE" 

2430 CLOSE 1 , 2 

2140 raoauB 470 'REOPEM FILE 

24 SO PRINT 

24&0 RETURN 
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RUH "INWPRNT" 

ENTER INyENTORV FILE NAME? INVFILE 

ENTER TODAY'S DAIE7 03/2e/'81 

t ;|t;|i * t III 41 ^ ^«)f: 41 « ;|i !|t lit iH :ti 4 4^ 1: t 'I' 4^^ |! !|< 4<^ IC * ^^t: ^ * ¥ y >l< If > ¥f i"f ^ 4:¥*** If ^ 41 ¥*!):>*>l'¥** * * * >):>K* * * * 

THE FOLLDUING OPTIONS ARE flUAlLflBLEI 

1..F1LE LIST 

2.,UEE REt^DF:! 

3..IWUENT0RY STATUS REPORT 

J|.. CLOSE ACCOUNTS ( EMD UF MONTH) 

5.. COPY INyENTORY flLE 

ENTER OPTION DESIREDT 1 
POSITION PAPER NDUT 

FILE CONTENTS - INUFILE AS 0F:O2/2a/ai 



ITEM 


BESCRIPTJON 




ON-HAMU 


ITEM COST 


LOO 


CLASS 


USE 


FDR PREUIDUE PERIODS - 


EARLIEST FIRST 








CUR USE 


RCWn PRICE 


COST-ODODS 


REORDER 


AT 








1 


SUPER WIDCET 

5 29. ?9 


(J 


14 



10.1357 



BSD (J 




A 




22222 




HIDHLE CLASS WIBGET 

19. ?5 






30 

10 


A. 51 







B 





33333 BUDGET WIDGET 50 1 . ?a BS13 C 

OOOOOOOOOOOO 
O 4.9a O 60 



BO rOU WISH TO CONTINUE <V OR N>? Y 
ENTER OPTION DESIREl? 2 
POiSITION PAPER MDU7 

INVENTORY USK REPORT flB OF:03/3e/in 



ITEM CUR USE COST-GOODS BN~HANU REORDER AT 
USE FOR PREVrOUS PERIODS - EARLIEST FIRST 



11111 1 ?.95 1^ 5 

OOOOOOOOOOOO 



222S2 O 20 10 

OOOOOOOOOOOO 

33333 o 30 40 

OOOOOOOOOOOO 
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DO YOU WISH TO CONTHNUi; (f OR M)? V 
ENTER OPTION EESTRErit 3 
POSITION PAPER NQU'' 

IWUENTORV STATUS REPORT US OF; 02/28/61 
ITEM BESCRIPTIOW ON-HrtWD AWG COST REORDER AT 



14 


l0.4aS7 


3 


20 


&.S1 


10 


50 


l,9B 


60 



mil SUPER WIIlGET 

J32::3 HIIUjLE CUrtSS UIDBET 

33333 PUPBET WIMEIT 

DO rOU WISH TO CONTINUE (T OR N>T Y 

ENTER OPTION LESIREt? ^i 

ARE YQU CERTAIN THAT YOU UftNT TV CLOSt flCCOIJNTE if OR N)? Y 

**»!|l» CLOEING INyENTDRT fltCOUN TS l-OF* J-'EklDD ***** 

***tt**«**1f*+**«******-****Jli|f**;|i^f *****!):******** ************«lll«**«**t*** 

INVENTORY CONSUMPTION AS OF! 02/23/0:1 
CAT CLOSING) 

ITEM use COST BE GOBIS 

mil 1 9. 93 

2222 f 

33333 

TOT COST OF QOODS 9.95 

ltlct*lrllcili«**Jt*liiliit:t*«ilcX*««*;t:t;*ili«**^ilr;IE«*ili:t:****^«t**ili:ic*ilcX**4titiK*:t;«:li**it:lc}til:«i« 

DO YDU WISH TO CONTINUE (Y UR N)? V 

ENTEfi OPTION DESIRED? S 

ENTER FILE TO BE COPIED TO'' INV-SftWE 



F3LE COPY COMPLETE 



BO YDU UI3H TO CONTINUE (Y OR N)? N 



PROCESSING COMPLETE 



BRElilK IN 150 
OK 



140 BASIC Computer Programs for Business 



6 





This scries of programs is designed to provide rhc processing re- 
quired to monitor and control an inventory in an environment that lends 
itself to a weekly, monthly, or other periodic update. Records of in- 
coming stock accumulated during the period are processed in one batch 
at the end of the period along with inventory-on-hand information. At 
the end of each period, a physical inventory is taken of all stock items 
(using the recording log provided by program ILOG), and the current 
inventory (on-hand) amounts are entered in the files (using program 
IDATA). After these transactions have been entered, program 
IREPORT updates the inventory files and prints an inventory report for 
the period. Subsequently, any or all of the optional reporting programs 
may be executed, 

A procedure to help yovi protect your inventory files is provided. 
File problems ean often be eliminated by using program JSTATUS, but 
to assure full file protection and recovery, the critical master files should 
be copied after all major updates. 

Inventory viluation and computations for the cost of goods sold 
are based on the UFO (First Jn, First Out) method, a method that can 
be changed by modifying the section of program 7RF.PORT beginning 
at statement ] 320. 

Projected-usE^e computations are based on a weighted-average 
method. The usage for each period is weighted by multiplying it by a 
factor that gives the most weight to the most recent periods, lor ex- 
ample, the sample outputs record usage information for twelve previous 
months (Ml - 12), The weighted-averaging method causes the most 
recent month to be multiplied by 12, the month before that by 11, the 
one before that by 10, and so forth, until the earliest month is multiplied 
by 1. This method can be modified by changing lines 320-380 of pro- 
gram ICOMP. 

All programs given here assign fixed values to a number of variables. 
You may wish to change these values to suit your processing needs. The 
variables involved and the values presently assigned are as follows: 

HI 



1. Viriabie MO controls the number of master files to be maintained 
for recovery purposes. For the programs given, its value is 2, 

2. Variable Ml controls the number of previous periods for which 
data is to be stored. For the programs given, its value is 12, 

J. Variable M2 conn-o2s the number of inventory values to be re- 
corded. For the programs given, its value is 8. (The master file con- 
tains several records listing inventory values for each item so that 
both FIFO and LIFO valuation methods may be accommodated.) 

4, The index file Is named "MINDEX." This name can be changed by 
modifying the value of variable F$, 



Operation of the System 

Initialization of inventory files 

The following programs provide for the initialization of the system 
and for the entry of initial-inventory master-file items. This step must be 
completed before the other inventory programs can be run. You will 
need to gather your inventory records in advance and assign an inventory 
code to each. These codes, v^'hich have a maximum length of eight 
characters, are the primary means of record identification within the 
computer. Since the inventory items must be entered in alphabetic order 
(based on this code), ir would be wise to set up the code so that various 
types of inventory items are grouped logically. 

Two other four-letter codes can be used to separate items in the 
inventory by type and location. These codes are meant solely for use in 
the reports. Unlike the codes for the inventory master file, they arc not 
used by the computer and consequently can be eliminated from the files 
and programs, if desired. 

As illustrated in the flowchart of Fig. 6-1, the programs INITIAL, 
ITRAN5, and lUPDTF, perform the initialisation processes that create 
the file structures and enter the original inventory items in the inventory 
master file. 



As-Required Processing 

These programs allow for the maintenance of the inventory master 
file and for recovciy capability in case of file problems. 

Programs ITRANS and lUPDTE are used to add, delete, and re- 
place items in the inventory master fiJe [see Fig. 6-2(a)] . They are the 
same programs that were used during the initial file-building process, 

Program [STATUS verifies the status of the index iind the master 
files, allowing the operator to step back to a previous version of the 
inventory master file in case of difficulties [see Fig. 6-2(b)] . The 
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CFiCMION OF 
FILE STRUCTURES 



iMITISL 



INDEX FILE ] 
(UlNaRXl I 



ENTERING ITEMS TO 
THE MASTER FILE 




y 

I MASTER / 
\ FILE I 



Fig. 6-1 (nitiallEation of inventory tl(« 



amount of protection offered by this program is determined by the 
number of files you choose to maintain (variable MO). 



End-of-Period Processing 

These programs allow the physical inventory amounts to be 
entered at the end of each period and the quantities and costs of items 
received to be entered during the period. After the data is entered, the 
files are updated and the inventory report produced. 
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INVEffTOftV 

MASTER 

ITEMS 



/ii^ 



1 r 



r tbansacticn' 

1 FILE I 




Ftg. G^2 As-required prooessfngr (al adding to, deletirigfrom^ 
and carracting the mastgr file; and (b) vsrifying fJTe statu? 



Program IDATA records the end-of-period inventory ^nounts in a 
transaction file for later update. 

Prc^ram 1REP0JR.T processes the traiuactions and produces the 
inventory report for the period. 



144 BASIC Computer Programs for Business 




Fig. G3 End-of'Pcri(Ktprci«!SEino 



To perform these processes (see Fig. 6-3), it is first necessary to 
take a physical inventory at the end of each period and to prepare a log 
indicating the quantiry of each item on hand and the quantity received 
from suppliers during the period. 



Printing Reports 

A basic inventory rcpoiT is produced during end-of-period process- 
ing, but other reports for specific purposes may also be desired. Several 
report-producing programs are thus provided for your use. as shown in 
Fig. 6-A. All these programs are optional, although iLOG, which helps 
record the end-of-period quantities on hand, is strongly recommended. 
Since this log is in item-ccide order, it also facilitates the entry of inven- 
tory data. 

Program ILIST produces a formatted list of the contents of the 
master inventory file for validation and review. 

Program ICOMP provides a skeletnl aid for computer-assisted 
analyses of inventory trouble spots. In its present form, it produces 
useful statistics and projcttions. 
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(fll 






[ H«lSrEt FILE 



I IP£P0ltT5 



POI 

I 




let 



tti 



Fig. 6-4 Printing reports: la) miscBllaneous reports, 
^b) reports b^ locatitvi. snd (cl rwpcirts by c^uss code 



Programs IREPORTl through IRFPORT5 produce reports of vari- 
ous formats, most of which are ordered by class or location codej. 



Files Used by the Periodic Inventory System 

Four basic fiJes are used by these inventory programs, eacli of 
which is described below. 

Index file 

Tlie name of this file ij determined by the value assigned to vari- 
able FS; in these examples, it is MINDEX. Only one copy of this file is 
provided by the system. Its function is to maintain a record of the vari- 
ous copies of the inventory master files, their creation dates, and the 
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version to be used for the next update/processing cycle. It consists of 
multiple occurrences of a file name and file creation date. The first 
occurrence is considered to be the latest, and the last occurrence is con- 
sidered to be the earliest. The number of file names included in the 
index file is determined by the value of variable MO. Occasionally, the 
file will contain the name of a transaction file that is being used for 
updating the inventory master file. If a transaction file name is present, 
it will be the last entry in the file, and the name will begin with a "T." 
or a "U.", 

Inventory master file 

The name of this file is determined by the value entered during the 
execution of the inidaiization program. The number of versions of the 
file is determined by the value of variable MO, The actual file name is 
determined by adding a version number {for example, 1) to the end of 
the file name entered. In the case of the examples provided, the file 
name MASTER was modified to be MASTER 1 and MASTER 2 to ac- 
commodate the two versions of the file. 

The master file contains one record for each inventory item. Its 
sequence is based on an alphabetic ordering by item code. All records 
are identical in format (but not In length), except for the first. The 
first record contains the creation date of the file. All Other records are 
of the form shown in Fig. 6-5. 



Item 

code 


Location 


CISSB 

eodfi 


Item 
d^^rlption 


Use information 
lrep«at&d Ml time^) 


On-hand j 


1$ Lt 


C$ D$ 




Ul) B 


> Receiyed 


Orr-hand 
end 


Quantity /Value 
(repeated M2 times! 


Reorder 
point 


Coitof 
goods jsed 


R 




O 






F 


Q(l VO 

ig. 6-5 Record fo 


mot 




RO 




CO 



Transaction files 

Both the transaction file for updating (correcting) the inventory 
master file and the transaction file for entering inventory data share the 
Same characteristics. They are temporary files that arc not accessible 
after they have been processed. They are also sequential files that con- 
tain essentially mirror images of the transactions entered at the terminal. 
Their formats vary according to the transaction entered. Their names are 
determined by appending a special character just before the first of the 
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six characters of the master file name to denote tJie file type <a "T." or 
a "V."). Therefore, when the master file name is MASTER, the trans- 
action file for updating the master file is U. MASTER, and the file that 
contains the period's data for processing is T. MASTER. All programs 
for the periodic inventory system are listed in l''ig. 6-6, along with their 
functions. The symbol and function tables are consolidated for the 
entire group. Symbol usage is consistent throughout, 



Pfogrsfn N^ima 


Function 


Fi^msfla 


INITIAL 


InitiatLZ^K files 


Prgflranl list in se^ti^n inlfoduction 


IDATA 


RacotdsimBntory trarisactions 




(REPORT 


Profie^sflA perJDdTC rnvi^T^tory 


IDATA mjst be run first 


(STATUS 


Pfinii file status anri swaps filas 
for recovery 




ILIST 


Prints contents of rrtaster file 




ITRAWS 


Entars update corrections for 
master trie 


lUPDTE proeestsi tranactions 


ILOG 


Produces list to record trans' 
actJcns 


In order by Item coda 


ICOMP 


Imeniory anal /sis program 


Options i 


IREPORTI 


Prims inventory repoj-c 


Optional 


IB EPOS T2 


Prints report by iDcatian codfe 


Optional 


IREPOHTS 


Pf ints report by location code 


Optional 


IRePORT4 


Prints rHport b¥ class code 


Optional 


1 REPORTS 


Prints report by cl3££ code 


Dptior^ai 


lUPDTE 


Corrects master file 


Refluires (TRANS tirsi 



F1G« G-G PfO:g^^mit for the periadfc invtijntarv svvtt^m 
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MAJOfi 


SYMBOL TABLE - INVENTORY 




NAME 


. . BESCRIPTION I 




dO 


.. AUERAQE use I 




A 


... TEMP ANSWER VARIABLE I 




A9 


1. TEMP VARIABLE I 




A* 


. . TEMP ANSWER VARIl^BLE I 




AJ» 


.. TEMP AHSHtft uAPrflSue' i 




A2t 


.. TEMP ANSWER i^ARIfltLE I 




B 


. . ON HftNB BEOIWMINO ■ MASTER FILE I 




FI9 


.. OK WHp BESINKIWe ■- JR^HS FILf I 




CO 


.. COST or GOOBfi GOLD I 




C0*<) 


. . CLASS CZODE ARHl^Y I 




C9 


, , COUNTER I 




C9t 


.. CL*^SS CODE - TRWNS FILE J 




C* 


.. CLASS CODE - MASTER FILE 1 




D* 


i, DESCRIPTION - MASTEfi FIL£ I 




no» 


, . TEMP DATE VAFflABLE I 




A1«0 


, . MASTER FILE - OATES I 




D3« 


,, DESCRIPTION - tRANS FILE I 




IJ9* 


. . CURRENT DATE 1 




E 


. . ERRoFi CODE I 




Fi 


. . INJJEX FILE NAWE I 




FO* 


. . TEMP FILE NAME I 




Fl* 


.. MASTER FILE FILENAMES I 




I* 


.. ITEM COPE - MASTER FILE I 




IB* 


. , INPUT ITEM COPE J 




I?* 


.. ITEM CODE - TRANS FILE I 




LO 


.. COUNTER I 




L» 


., LULATIDN CODE - MASTER FILE 1 




L0*<> 


.. l.DCATIDN CODE ARRAY I 




L?t 


.. LDCAriON CODE ~ TRANS FILE I 




MO 


. . NUMBER OF MASTER FILES I 




Ml 


.. NUMBER OF PERIODS RECORDED I 




M? 


.. NUMBER OF INtiENTORT VAt.UCS RECgRDEU I 




M3 


,, MAXlMtJM NUMBER OF ClASSES/LCCATIDNS I 




MO* 


., MONIH NAME I 







., ON HAND END - MASTER FILE I 




09 


.. ON HANB END - TRANS FILE I 




P 


. , NUMBER OF PERIODS TO RECORD I 




P7 


. . PROJECTEP USE £ 




a( ) 


. . QUANTITY PURCHASED ■■ MASTER FILE I 




C!?(> 


,, QTV PURCHASED - TRANS FILE I 




R 


.. RECEIVED DURING PERIOD - MASTER FILE I 




RO 


. . REORDER POINT I 




R? 


,. RECEIVeCI DURING PERIOE - TRANE FILE I 




S7 


. . EOF INDICATOR I 




ss 


,. EOF INBICATOR I 




T( ) 


. . TOTAL DOLLAR ARRAY t 




TO 


. . rOTl^L DOLLARS I 




TO* 


.. OLII TRANS FILE NAME f 




Tl 


., LENGTH OF FILE NAME I 




Tl* 


. , TRANS FILE NAME I 




T2» 


.. TEMP FILE NAME r 




T9i 


, . TRANSACTION TYPE CODE t 




U( ) 


, , USE STATISTICS - MASTER FILE I 




uo 


.. USE DURING CURRENT PERIOD | 




U»! ) 


, . USE STATISTICS - MASTER FILE 1 




vn 


.. UNITii VALUE -MASTER FILE I 




UO 


. . VALUE OF Boots I 




V? 


. , 1RAN3ACTI0N VALUE I 




V9t ) 


, . UALUES - TRANS FILE I 




X 


•. TEMP WARIAftLK I 




X* 


. . TEMP VARIABLE I 



FUNCTIONS USiED 



NAME 



I ULOSE 
I DIM 
I EOFO 
I iSOSUB 
I IMPUT* 
1 ItiT 
I KILL 
I l.fFT* 

LCtI 

LINEINPUT 

NAME 

OPEN 

PRINTi 

RETURN 

TAB 

SPACE* 

STRING* 
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Initialization of Inventory Files 

Program Najxe: INITIAL 

This program initializes files for use by the periodic inventory sys- 
tem and contains an unused capability to create other files as well. In its 
present form, it produces master and index files using the file names 
provided by the operator at the time of initialization. Multiple copies of 
the master file ire created for use during recovery processing. The num- 
ber of master files for recovery cycling is specified by the value of 
variable MO. 

Files Affected: Index file (created) 

Inventory master files (created) 

5 CLE«R 900 

10 REM iSfiiyeD ftT INITIAL 

20 REM li.Aift*t**:*^***1l-tttim********lt**lf.***ttt}tt.**.lf*t*11.**Kil*»*.lf-*» 
30 RErt IMITIAL,J7E 

40 REM t*ltt*t:t***1t*i(t****f iUffil^^tt *-*t*l^>t****»:li:***>l**»^>f ******* *»* 
50 »<.<~2 

70 DIM F*(M) 

SO DIM D7*(M3 

90 D7«(!.) = "INVEtvlTDKY' 

too D7*(2)="UNLIEED" 

llij D7«(3) ="UNUSED" 

I20 F*(lJ = "MmDE!(" 

130 F«(2)-"DSNErE:)(" 

140 F*<;j> = "3INDEX" 

ISO DIM FUlMOVjDIiiMt-iV 

lAO REM ****** ****»**4(»llr*»*t***t»!l'**»***t ****** **************** 

17C> REM PROCESSIWG AREA 

ISO REM *n. ****** ***ifim** It* A**** ***f ****** iii*itt*t 4 ****((* tit**** 

!'?0 PRINT 

200 PftlMT 

2IO PSTMT "WK CAN INITIALIZE THE FOLLOWING TVPE5 OF FILES" 

320 PRINT 

230 FDR 1=1 TO M 

240 PRINT TAB aO) ; I;D7*<I) 

250 NEXT I 

260 PRINT 

270 PFVINT "ENTER THE CODE NUMBER OF THE FILE TO BE INITIALIilED ") 

2et> JNpUT T 

?W IF T > M THEN 210 

3C'Ci IF T = rHEN i40 

3JO PRJNT 

:320 PfiINT 

330 PRINT "YDU ARE IWITI AL7XING "!D7a(TJ;" MASTER Flt.eS" 

340 PRINT 

350 PRINT "THE NAME OF THE ID FILE WILL BE "jh-itT* 

StiO PRINT 'EMTeR THE NAME TD BE USED FDR THI: MASTER FILE"; 

370 IWPUT FO* 

380 PRINT "ENTER TODAY'S DATE MM/DD/YV"; 

3^0 INF-IJT D1*(J) 

ItX) FDH 1 = 1 TO MO 

410 Fltf r)«FO«+STR«(IJ 

420 NEXT I 

430 PKINT 

440 PRINT '■! AH PREPflREn TD CREATE THE FOLLOWIMG FILES;" 
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4S0 PRINT TAB(5>,-"tNDE>! FILE "sFsfT) 

460 PRINT TA&(5) !D7* IT) s " FILES ( " 5 MCl; " > , . " j 
470 FDR I==l TQ MO 

430 PRIMT ".,."; FJ*( n ; " "j 

470 NEXT I 

EOO PRINT 

SJCl PRINT 

530 PRINT "SHALL I CftEATC THEM (¥ Oft N)?"; 

530 INPUT A* 

5<tO PRINT 

5SC1 IF LeFT*<A»., 1 ):»"M" THEN 640 

560 GQSUB 680 'FILE OPEN 

370 GOSUB 740 "FILE WRITE 

590 REM PROGRAM TEF<MINATES 

600 REM ***tt**it*H'****t** + *** + tt+J|i ****************** ********* 

6I0 GOSUB S0'> ^FILE CLOSE 

620 PRINT "FILE CREATION COMPLETE" 

630 PRINT 

640 BTOP 

6^0 REM ***t*******»*****t**********«t*«illt*t**«*******«******* 

4.^,0 REM FILK HANDLING PROCEDURES 

670 REM *t***********t**);*******«******j^***«******i|I*****»l|i:t]r*«L 

680 REM *************** FILE OPENS ************************* 

6^0 OPEN "D",t10+1,F4(T) 

700 FDR 1=1 TD MO 

710 OPEN "O" . J,Fl« £1! 

720 NEXT 1 

730 RETURN 

740 REM ****«tit****lt»t* FILE URITE **** ^l* *«*4 *****:********** 

750 PR]NT*M04-I,F1«(J> i ","iDI4<l );",■'! Fl*(2> s", "!Di*<2J 

760 FOR 1=1 TO MO 

770 PRIMT#I,0;C(Ci;O)O 

7S<i NEXT I 

7'i>0 RETURM 

80CJ REM *************** FILE CLOSES *«*«**««***«*****«***««** 

eiO FOR 1=1 TO MO<l 

B3(^ CLOSE J 

BSO NEXT I 

S40 RETURN 



RUN •I^fITIAL• 

UE VAH INITUkLIZE THE POLLOUIMB TYPES OF FILES 

1 IMUENTORY 

2 UNUSED 
S tiNUSEII 

ENTER THE COIrE NUMBER OF THE FILE Tl] BE INITIALIZED ? 1 
YflU ARE INITIALIZING INVENTORY MASTER FILES 
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THE WflME or THE IT Fltf WTLL BE HINCrE); 

ENTER THE NrtMC TLl BE USED FOR THE MASTER FILE? MASTER 
EMTER TODAY'S DATE HM/DD/TrT 11/30/80 

I AM PREFAREC TO CREATE IHK FOLLOUiWlj FJLESJ 

INIiEX FiLt MINDEX 

INVEMTORY FILES t 2 ) MflSTElFt I .■ .MASTER 2 

SHALL I CREftTE THEH <V OR N>?? t 

FILE CREATION COMPLETE 

Bft{:AK in &AQ 
OK 



File Status and Recoverv 

Program Name: ISTATUS 

This program prints the status of files, including the creation dates, 
as recorded in the indcj; file and aisoprints the first rccordof the master 
file itself. The litest fi!e information is printed first. A file recovery 
routine ejiists as an option. If you choose to execute it, the index file 
must be changed to indicate that the iatesr fi!e is invalid and the next 
new<:st file is the correct one. Future processing against this file will then 
occur aLitomatically, Note, however, that further processing may be re- 
quired to insure the currency of the file, 

Files Affected; Index file (recovery opcion only) 

S CLEAR 900 

iO REM r,AVeC AT JSTflTi.iS 

3i> REM rNITlHLIZATION 

+0 REM «»*«*******«********<****:*** t^*****«*f**1f ***************** 

•45 !:ls 

50 MCi=2 

60 Ml-12 

7(1 H2=S 

eo DIM U<M1) ,E(M3> ,V(M2> ,F1» iMO) ,Dl*fMO> 

<)Cl F* = "MIMDE)!" 

lOO REM tiHHlfkt*t*)IHltttitttt» $*fil If !ttiltitllt».)lf4,t»*t)fill.tt* *********** 

no REM PROCESS 1 we AREA 

120 FiE?1 *!t**t*1i**TlL*»4t***ttlllt***t*****!********tt***********'f**t 

ISO PRINT 

140 PRINT 

150 PRINT " INVEMTORV FILE STATUS F-fiiOGRAM" 

libO Pf^IKT 

170 REM ACCESS FILES 

iao OP-EN 'I'M.F* 

190 PRINT "thtE FOLLdWINQ FILES MRE ftVAIUfteLE" 

2tiO PRINT 

210 PRINT TAB tlO) s 'FILE NAME"; TAB i25) ; "CREflTinN DftTE" ; TAB (45) ; "CttEftTIOM DAte" 

220 PRINT TAe(25);"<FftOM INDEX )"; TAB (4S) ;" (FRGN FILE)" 

230 PRINT TftBtlO>; "' ■■fTA6(25) ; ■■-—— .^-. ^— " ; TAB (451 ; " " 

240 PRINT "SLATEST*"; 
2SC; FDR 1=1 TO no 
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2iO rMPIJT*l,Fl*(I) ,D1«<I) 
270 DPEM '■r',2,Fl*(I) 

290 EX09E 2 

ZOO ir l=hO THEN PRINT ■■*ni I?EST*"( 

310 PRINT TAB! 10) ;F1«( ! J i TflB(25) ;Dl»f I) ;TflB(45) ;DO« 

320 MF>!T I 

330 IF NOT EOF (1 ) THEM ENF'UTSl.TI* 

340 PRINT 

350 PRINT "DO VDD WISH TO ENTER THE RECOVERY ROUTINE i.Y OR N3 " 

3A0 INPUT (i« 

370 IF A*';>"y" THEN 5S0 

3B0 fi«="M" 

390 PRINT 

400 PRINT "DD VDU WISH TO DISCAI«D THE LATEST FIUE (V OR N)"; 

410 INPUT A« 

420 IF fk*<>"V" THEN 5M 

430 (l*="N" 

440 PRTNT '-AFtE VOiJ flBSOi IJTEL V POSITIWE"; 

450 JlyPUT A* 

460 IF «*•->"¥•■ THEN E550 

470 PRINT 

4eo [:lose i 

4<?0 OPEN "O", 1,F* 

50O PRINT "THE LATEST FILE ";Fl*ini" IS BEING DISCARDED" 

510 POR 1= 2 TO NO 

SaO PRIMT*1,F1»CI) ; ", ■■;Dl«fI) ;'■, "; 

530 NEXT I 

R40 PRINTS) ,Ftf<l>; ",BAn FTLE,"iri* 

5S0 PRINT 

570 REM TERMINPTICN KIINI 

SeO REM **f+>t«»t***lf***^******J|l*********iHiJ|f**»***l|(*«t ********* 

S90 PRTNT 

iOO PRINT 

tlO CLOSE 

620 IF fl*="¥" THEN PRINT "RECOyERV COMPLETE" 

630 STOP 



RUN 'ISTATUS* 

IN^^ENTDRY FILE STflTUii PROGRAM 

THE FOLLOWING FILES ARE. rtyAILABLE 

FILE NAME CREATION ClftTE CREATIUM TATE 
(FRUM INOEXJ (FftOM FILE) 



•LATEST* MASTER 1 11/30/80 

*DLDESf* MASTER 2 O O 

DO rOU WISH TO ENTER THE RECOVERY ROUTINE (V OR N) 

7 y 

DO rOLF WISH to DISCARD THE LATEST FILE (Y Oft M>? V 
ARE rOU ftBSOLUTELT POSITIVE? Y 

THE LATEST FILE MASTER 1 IS BEING riSCAPPED 

RECOVERY COMPLETE 
BREAK 1» 630 
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RUN •IBTATUS- 

INUENTORY FILE STATUS PROGRAM 

THE FOLLOWING FILES ARE flUAILflBLE 

FILE NAME CREfiriDN DATE CREATION OftTE 
<FRQM INDEX) CFROM FILE* 



«LflTEST* MASTER 2 

KOLtCST* MASTER J BAD FILE O O 

00 VOU WISH TO ENTER THE RECOMERY ROUTINE (Y OR N) 

T N 






Updating Transactions for Master File 

Program Name: ITRANS 

This program enters mirial records in the inventory master file and 
corrects the contents of that file later on. It accepts records that are 
written to an update transaction file for later processing by program 
ITJPDTE. tt allows the entry of transaction types that add, delete, or re- 
place records in the master file, These types are entered by keying in 
the item code first and then an "A," "D," or "R" to indicate the spe- 
cific type. Add and replace transactions will then prompt the operator 
to enter the remaining information in the inventory master records, This 
program will combine the transactions from several runs into one file 
for updating, but the transactions must be entered by item code in the 
same alphabetic sequence as that of the master file. 

Files Affected; Update transaction file (created) 

5 CLEAR 90O 

lO REM BftVED AT ITRANS 

'20 REM %1,t*%%'ltii%t1ltM%%%*1('l^t'ttilii%%i.'lt%%-ltM*1iL*%1I.^X*ill%tt%ili%ti<lll1(X*1til 

30 REM INiriHLlXATlON 

40 Ren iftitit*it*t*it*tfiii**tit.-i<nHf.i%tt.ifi.ii.tM**.*tt%i.-ii.tn%ntit*%xini%%t*% 

45 CLS 

,=;(-. Mc:i=2 

AD Ml-t2 

70 M2=S 

ef> DIM UlMll ,G(H2) ,V(MLi) ,F1» tMO) ,R1* iMO> 

90 F*="rHNI>EX" 

100 REM «*****♦«*****♦ ******************************** t*tt tit** 

110 l^EK f-RDCESSING AREA 

120 REM t*M*1f*M*1(!il.**%»iitift%)l.*t#**1t%i(lfil*il.*il.%tn***n*i****i.**t*H* 
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i:3i> PRINT "HflVE UPDATES RLREADV BEEIM PfiRTI6LI..V ENTERED (V OR Nl' 

140 INK'UT A* 

150 eOSUB 710 "ACCESS FILES 

160 IF LEFTtifi*, I>="N" THEN IBO 

170 fjOSUD '?40 'FIND PLftCE IN FILES 

ISO PRINT "ElilTER'sTAhUO}] "ITEM CCDEi"; 

I'^O I9*=IS 

20i> 18* = "" 

210 INPUT IB* 

220 Ih IB*="" THEN feOCi 

J30 TP ia*='STOP" THEN 6J0 

240 I*=iIBa 

■24S IF- L EN (14X1} THEM l*=l*+" " = GDTD 245 

350 IF I*>191; THEN 290 

260 PRINT "ITEM OUT OF SEPUENCE - NPT PRDDESSEO" 

■370 aoTo ISO 

280 PRINT "ADD (A), DELETE CD), OR REPLACE <R)"; 

290 INPUT T?* 

SOO IP T'*»<;"D" TUtN r>30 

:H0 El^SiJB 1040 -FILE WRITE 

320 BOTO J.eO 

330 PRINT T«B(10> J "LOCflTlDN CODF: "; 

340 INPUT L* 

330 PRiwr inedo)? "CLASS! ",- 

360 INPUT Ct 

570 PRINT TABUO>? "DESCRIPTIOM! ") 

:590 IMPUT D* 

390 PRINT TAB (i:)>! "Will. VOU PJMTER USE INFORMATION (V OR N)"( 

400 INPUT A* 

410 11^ L1£FT*<A*, 1K>"V" THEW 4S0 

420 PRINT "HOW MfllMY PEFtlDDS OF USE SHALL I RECORD",- 

130 INPUT P 

440 PRINT "ENTfft LATEST PERIOD FIRST" 

450 FDR I^-l TO P 

460 INPUT 11(1 ) 

470 WE XT I 

4S0 PRINT "IHRtl(J) ; "IJM HBfJD! "; 

490 INPUT rj 

5O0 ia(i)=a 

310 PRINT TAB (10>! "UNIT COST: "f 

520 INPUT V!l) 

S30 Pr* 1 NT TAB (1 ) ; " tVEnRDIfR PD I Nl : " ; 

540 INPUT RO 

S'JO PRINT "**«**»»*i|i**t**»»»if***i(i«*1t*|." 

?60 PRINT 

S70 BOSUB 1O40 'FILE WRITE 

5B0 GOTO WO 

600 REM TERMIWATION POINT 

620 GCISUB SSO 'REWfilTE INDEX 

630 PfilNT 

i.40 PRINT 

650 PRINT "PROGRAM TERMINATING" 

660 PRINT 

670 STOP 

690 RFM FILE HtlNDLINR F-'ROCEDURES 

700 REM tt)l)f***»:*t****t»»t***tf***t^tt».*t**.t*t**t**t.»***«***» 

710 REM ACCESS FILES 

720 OPEN " T " , i , F* 

730 FOR 1=1 TO MO 

740 lMPUTttl,FI*CI> ,D1« ( I> 

7S0 NEXT I 

760 T1=LEN(Fl»(l> ) 

770 IF Tl>6 TMEN Tl=6 

730 TO^-'O. "tLEFT* (FlSd) ,Tl) 



790 TJ*="U. "+LeFT!t (F"ltU> , TIJ 

Bt)0 11^ LeFT«<fi«, 1J< J-"Y" THEN (J30 
505 DPEN "I ",4, TJ* 

H06 opFW "0",:!;,Tot 

B07 IF EOFCV) THflN ai5 
BOG IMPIJT#4 , 7.* 

BO"? PRINT*:;, i?* 
eio SOTO ao7 
SIS Close s,4 

820 OPEN "I ",4, TO* 

H^fl DPEN ■■0",3,T1* 

810 RETURN 

iSSO REM **)!«««««««:«««* REMFilTL; IMQE>: ^fit t>):4i*4<ik^*4r4iJt t «:|c» t*^* 

SAO CLOSE 1 

S70 DPEN "O", i ,F* 

QaO FOR 1=1 TO «0 

S50 PRINT#1,FI*<I) ; ","sBl*(I>; " , " ,- 

■JOO NEXT J 

VtO Pf^INT+tl.Ti* 

9Ii:i CLnSE l,?.,Z 

730 RETURN 

?40 REM t************ FIND PLACES IN FILES ****** «*»♦ *«**« 

930 IF EOF(4> THEN lOOO 

91=0 INPUT«4, T9a. It 

?70 LIKE IN1=-UT#4,>;» 

960 PRINT#3,T9*;", ■';:*• " , "■ X* 

9<?0 HDTO <?50 

lOOO PR!MT "LAST RECORD WAS "sT"?*;" "jjf 

lOlO CLOSE 4 

J020 KILL TO* 

1030 RETURN 

1040 REM t***.t**t*t»l.***i PILE WRITE ****^ f ****** t«:ttl««*lt«*« 

1050 PRINT#3,T<9*; ", '■ , I*;", "jL*!", "sCt; ", "jD*,", "; 

(060 FUR I-l TO Hi 

1070 PRINT*3,IJn> i 

lOBO Uil>=0 

1O90 NEXT I 

llOO PRlNTtt3, Rr;RiO; 

1110 FOR 1-1 TO M2 

1120 PRINT#3,e(I);VU)( 

1170 NEXT I 

11 40 PRITJT*3,RO,C0 

1150 RETURN 



RUN -JTRflNS- 

HftUE UPUrtTES ALREADY BEEM P<\RTIflLLY ENTEREIl (Y OR NJ7 M 

ENTER ITEM CODflt 11111. 

ADD (*)i DELETE <B)r OR l\-EPLrtCE CftlT |4 

LOCATION CODE 17 1234 

CLASS f fihCl' 

DESCRlPlIONf? SUPER UELUKE UIDGLT 

MILL YQU ENTER U!=E INFORMATION (f [IR M)T Y 
HOU HflNV PERIODS OF USE SHALL I RECORD? 12 
ENTER LATEST PERIDIl FIRST 
-? 7a 
? 6S 
? 71 
T 85 
■? 47 
7 67 
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? 58 

-' yy 

? 61 

? 52 

f 30 

7 43 

ON hand:? 100 

UNIT cost:? 12, 15 
REORDER POINT' 90 

£MTEft ITEM COfit;? 22S22 

AOU <A), DELETE (ID, OR REPLACE <R>? A 

LOCfldON COriErr- IL'iS 

class:? A6CD 

description:'!' Mi:iDLt class uidbet 

WILL rOU ENTER USE INFORMATION (T OR M}V N 

ON hand: 7 50 

UNIT COSTiT 56.67 
REORIIER FIJI NT? 33 

ENTER ITEM CODE!? 33333 

ADIi (A>r DELETE tD)i OK BtlFLACE {RJ? A 
LOCATION COPE!? 1234 

class;? ttBxx 

OEECMPTION)? eOLD-PLftTED UIDGEI 

UILL rOU ENTER USE IWFORMATtON <V IJR S)? N 

ON HAND!? 50 

UNIT COST!? Ba.43 

REOROER POINT'-' 10 

ENTER ITEM CODE!'? 



PROGRAM TERMINATING 



BREAK IN &70 
OK 
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Updating of Master File 

Program Name : lUPDTE 

This program accepts tcansactions previously altered in an update 
transaction file by program ITRANS and performs the necessary 
addition, deletion, and replacement of records in the inveritory master 
file. At the completion of this processing, the index file is updated to re- 
flect the name and date of the most recent (updated) version of the 
inventory master file. 

Files Affected; Inventory mister file 
Index file 



tt> HEM SAWfTD rtT ILIPDTE 

I'Cl REM tlt*lt.*if*il.^1/Mt:tt:»it:tt!Ht****tt****ttlt*tt*******t*****t*tt1it 

311 REM INIirWLljJHnON 

40 REM ***t*IHk**1l***t******1lt!t****3lt***ISt:****************^**lt.* 

AS Cl.S 

50 rWJ=2 

AO Ml=12 

70 M2=3 

BO DIM U(Ml).t3<M2>,V(M2> , U9 (Mi J , 09 CH2> , V9<m;:;> , F'l* tM(:i> , Dl* fMO> 

loo REM ********************** +*!Hi**)l'******t****t*iH;******it + **'* 

110 REM PRDCEBSSIWB AREA 

120 REN *********************** t****»*»***)t***9lt******j|l««l«*I»:f* 

lOT PRINT 

14Ci PRINT ■■ INVEMTORV UPDATE PRQCESSINB" 

ISO PRIMT 

140 PRINT "HALIE AU.. UPHATE TRAWHflCTIONS BEEN ENTERED (V OR N) " ; 

170 INPUT A* 

laO PRINT "EMTER TODAV'S DflTE MM/DD/YV" 

190 INPUT DO* 

200 IF A-t-^-V" THEN 2S0 

21Ci pRfNl "THE JNVEMTORY l-ll_E CAN DNLV BE UPDfiTER ("RDM TRfiNSACTItlNS IN" 

320 PRINT "THE UPDATE FILE. SHALL I SO flHE<^D AMD PROCESS THESE <V C!R N)"; 

£50 INPUT A* 

■340 IF ft»=="N" THEN S90 

?50 GDSUB 430 ' PiCCESS FILEB 

2f!.0 onsUB 12'£0 'READ MASTbiR F'lLE 

270 GDSUB fVO ■ RFflD TRANSACTION FILE 

2SO IF lt!;i>?* THEW EtiSUE 1120 'WRITE FROM MASTER 

290 IF Its 19* THEN GOSUB 830 'WRITF FROM TBAMSftCTION 

30& IF S8=l AWO ^7=1 THEN Z4i.' 

310 IF I*-I^* THEN GDEilJB 137f> ' EOI.IAI COMPARE 

320 GOTO 280 

ZJ.0 Rf h ***** tn ** i;**« IK* **i^************x*** ******* Hi ********* 

340 REM TeRMrNrtTtfJN PDIWT 

3SO REM »******»»**«*****ll***«!Jl***>tt*«>t*t**tJt******«**»***»** 

360 l,50SUB 370 'REWFlItK IMDF.X 

370 PRINT "HilVENTORV UPDATE COMPLETE" 

380 PRINT 

3*0 aiQF 

AOO REM ********t*******«**»***»**«**»***************t**«**gK* 

410 REM FILE HANOLING FROCECURES 

■OT^O F)FM ^t**************!**********)!*************************** 

430 Ren ADCESS FILES 
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440 OPEN "I", t,Ft 

450 FOR I"l TO no 

4-60 INPUT*1 ,Fl«tI) , Dl»<n 

(iTIV NEXT I 

+80 OPEN "I",2,F1»U) 

4'?0 L. INR INPUT#2,)(* 

500 OPEN ■■0",4,Fi*<2> 

SIO PRINT#4, DO* 

520 T1=LEN(F1*<J>) 

S30 IF Ti:>i IHEN Tl=Jb 

540 Tl*="ll."+-LeFT*<F].*(l »,Tn 

T550 OPEN "I",3,Tl* 

SibO RETUFti-J 

S70 ReM ***<********** + + * REWRITE INDEX ^H^t*t^^t*^l-f■^l■**■l^t***t 

sso c:ldse 1 

S?0 13PFW "D", I .Ft 

AOO D1*(2>=D0* 

felO PHirilT*l,Kl*(MO) ; ", "iTHiiMOl j ","! 

630 <F M0=2 THEN 660 

A30 FDR 1=2 TD M0~1 

A40 PRINT#1,F14(IJ;",";01*(I);","; 

iSO NEXT r 

if.0 PR(NTttt,Fl*(l)f ", "jilll*!! );",-; 

A7a PRINTttl ,T1» 

4BO CLOSE 1,2,3,4 

i90 RETL!RM 

700 REM ***************** ERROR ROUTINE ***»»«*»***»»:?***»» 

710 IF e<;il IHEN IBPTO 770 

720 PRIWT "»**» ERROR HOIJF 1 - ABD KRROR *««*" 

730 PRINT "ITEM CODE ";I9»;" ALREADY EXISIED JN THE FILE;" 

740 PRINT "PRDCESSINB IGWDHED. " 

750 PRINT 

760 fjorn S30 

770 IF E02 THEN B2tl 

7aO PRINT "*«*« ERROR CODE 2 - REPLACE/ RELETE ERROR *»**" 

790 PRINT "ITEM CIDDE ";I9*;" DID NOT EXIST IN THE ffftSTER FILE" 

BOO PRINT "PROce;aslNIS IGNORED" 

a!0 PRINT 

S20 RETURN 

B30 REM *«****«*«**»«** WRITE FRDfl TRfiNS FILE *»*****««)»«»;** 

840 IF TS'«="ft" THEN SBO 

USO E=2 

(M.0 GOSIJE 700 'FRROR ROUT IMF 

870 BDTO 970 

fJRl. pftlNTM,!"?*;". "j|.94;","jC9*s"."iPB*> "."i 

890 FOR 1=1 TO Ml 

900 PRINI«4,U9(1>; 

910 NFXT I 

920 PRINTtt4, B9sR9j09! 

930 FOR 1 = 1 TD M2 

940 PRINT»t4,D9n>;V9(I) ) 

fna NEXT : 

960 PRINT#4,RO,CO 

-^-yO REM *»»******»** IRftNSACTKlN READ ROUTINE *««*««**««******» 

9S0 IF NOT EOF (3) THF.N 1020 

990 S8"l 

lOOO r9«"="":FOR Z"t TO 6: I'J^oil^lt+CHR* i 128) ! NEXT Z 

1010 GOTO 1110 

1020 INPur#3,T9*,I9*,L<?*,C'>«,D9» 

1030 FOR 1 = 1 TO Ml 

1040 INPUTttS-y^d) 

1050 NE);T ! 
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10*,0 JhlPUT#T,B9,R9,09 

107(:i FOR J=J TO M2 

lOBO INPUT*t3,C!'; (I ) ,W(IJ 

10^0 NEXT 1 

llOO INPUT*3,R0,C0 

mo RETUKN 

1120 REM *****»** + **«** WRITE FROM MASTER FILE ***» t*)tir ***** 

1130 PRINT»4,,lt; "i ■' ;L*; ", ":C4; ", ";Dt5 ", "; 

IIJIO FOR 1=1 TO Ml 

115C> FRINTtt-J.Ud) ; 

1160 NEXT 1 

1170 PRINT*4,BsR!Oj 

Ueo r-"0« !■=! TQ M2 

H>?0 PRIWT(t4,Bil ) ^y (U 5 

1 ?00 MR K I I 

1210 PftINT#4,RO, CO 

1220 REM *».********«* MASTER FILE f^£AU ROUTINE **«*»««!*«***« 

!230 IF WOT FOF f2) THEN 1270 

1240 S7=l 

1250 It- FOR Z-i TO e!l* = I*+C;HR*(12e>!NE)(T 1 

IS60 GOTQ \Zi,0 

1270 INPUT^t2, r»,L»,C*,D* 

J.2B0 FDR 1=1 ro ni 

1290 INPUT«2,IJ(I> 

1300 NEXT I 

1310 1NFUT#2,D,R,(J 

1320 FDK 1=1 TC M2 

1330 INPUT«3,G(n ,V<1) 

1340 NEXT I 

1350 INPUT«2,R0.C0 

1 idO RETURN 

1370 REM ******«*« EDUAL COMPARE CF ITEM CODES ***»*»*lt«»*lt** 

13B0 IF T9«^>"fl" THEN 1430 

1390 E=l 

1400 GOgUB 70O ' 5RR0R RPUTINE 

1410 GOSUB '?70 'REftD NEKT TRftNS 

1420 GOTO 1300 

14T:o if T9*^>"0" then 1470 

1440 GOSUB *ro 'READ NEXT TRANSftCTIDN 

1450 SDSUB 1220 ' RFAO MFXT MASTER 

1460 GOTO ISOO 

1470 IF T9*-;>"R" THEN 15(^0 

!4S0 BOSUB S80 'WRITE FROM TRflMSftCTION 

1490 ROSUB 1220 'REPiD NEXT MASTER 

ISOO RETURN 



RUN -lUPBTE" 

INVENTORY UPDATE FROCEBBING 

HftUE *LL UFli^rK TRSNS«CTIONS BEEN ENTERED (If W< N)-- V 

ENTER TODflys DATE MM/DC/YK 

f 11/30/80 

INUEMTORY UPDATE COMPLETE 

BREAK IN 390 
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Inventory Log 

Progmm Name: (LOG 

This program produces a log for use in recording the receipt of 
inventory items and the quantities on hand during the cnd-of-pcriod 
inventory. Since the log K ordered by item number, it provides an idea! 
data-entry document for entering the inventory data for the period, 

Files Affected: None 

S CLEAR '!iXi 

iO REM SAVED ftT I LOS 

20 REM ****it;3l!«*»**«* + t:*Tt*1i*iti**tt*«******* + *********»*****1H:*** 

30 REM INITIftLI/IATrOM 

43 CLS 

50 f^O^'A 

bO Ml=12 

7r5 M2=a 

BO DIM U(Ml),a<M2) ,VCM2) ,P1»(M0) ,D1»(M0} 

90 F*>^"MINDEX" 

1 00 RE.M t*.itt%>Hft*1f%*1tlt1fiHtmtt*if-mni1Hft1tittt*%t%i(lttt*ti(lt*1l.iHHH1Ht1k 

no REM PRQCESSINB SRFA 

120 REM **.%t%tt.t*%tt.t.**t%*.'lt****if*it**i1l.**t1.*1l.*ii.*.*ltt*1l.*1I.H^%'^lil-i.*.** 

130 PRINT 

140 PRINT 

IM PRINT ■■ IWVENTDRY LOG PROGRAM" 

liO PRINT "ENTER THE MONTH FOR THE IMVENTDRY LOG"; 

J 70 INPUT MO* 

ISO PRINT "Al.rON TO TOP -OF -PARE AND PRESS THE ENTER KEY" 

l'?'!! INPUT ft* 

20O LPRINT " " 

310 QOSUB 420 'ACHFSS Fll.fS 

220 GQSUB 620 'PRINT HEADINGS 

130 GOSUB 500 'RESU FILE 

240 L PR I NT '■ " 

250 LPRIWT Ii;TABilO);L*;TflB(lSl ;D»sTAI((47)!" — 

SiO LO=LO+i 

270 GOTO 230 

2(J0 REM *i^*Mtlf.%1i%****1f^%tit<f***it**%t*'iH**t%%*ittiHit******4%**^it*-* 

290 REM TERMINATION POIMT 

300 REM %1t%n%il.n*il%illl.*ll.if1l.%lt.ll.-il.%lt«ll.X**il.n*.**if1i*i'%%%t%*iHt%ifi(-^ll.%if*%t 

Z\0 PRIMT 

320 PRINT 

330 PRINT 

340 PRINT "INVENTORY LO0 IS COMPLETE" 

350 PRINT " "fLO("REC;DRDS PRINTED'' 

360 PRINT 

■Z7(i CLDGE 1,2 

3S0 STOP 

390 REM iditlitf ili«**li**itct4it*t**)t<^lllff **ltIt^:l<)llt*iit*t*Kiil<ti|i^)liT*)(r]tt«»t«]|i 

400 REM SUBROUTINES FOLLDW 

410 REM *tMMitM*it**.**t.H.t**t.1l***i(*».**t*1f.1l.*t***1tt1l.1f*%**%1.%ttk.*t.t. 

470 REM ACCESS FILES 

430 OPEN "I", 1,F« 

440 FOR I-l TO MO 

450 INPUT«l,Fl«(n,Dl«(n 

4AO NEXT 1 

470 OPEN "I",2,F1« tl) 

4S0 INPUT#2,D0« 

490 RETURN 
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300 REM tttttttt********* READ FILE tlli-)(*t.t*ilili.t**t.t**t.*»ii^»t** 

510 IF EnF (r> THEN 7.90 

520 INPtJT#7, I*,L*,C*, D* 

S30 FOR 1=1 TU Ml 

sto I^puT^t2,u(I) 

550 NEST 1 

560 INPUT#?,B,R,a 

S70 FOR 1=1 TO MS 

5BO lWPUT#2,qiZ> , Vtl) 

590 HEKT I 

600 rNPUTft2,RO,C0 

610 RETURN 

6^0 REti )i«t^*<l»tll<l;tl<tlKi«#): PR'IIMT HF.ADlNB t tilt;lrj««t« t *«»' t Xt It.*** t « 

630 LPRINT " ■■ 

640 LPRINT ■■ " 

i50 LPRINT ■■ rnVt-MTOKV t.06 - MONTH OF: ")MO« 

660 LPRINT ■' ■' 

470 LPRINT ■' " 

600 FOR Z=l TO 77:).PRINT "*";:WEi<T TsLPRINT " " 

690 LPRINT "ITF«":TftB (10)( "LDC"!TrtB(2S) ? "DESCftlPTION"'! 

700 LPRINT TAB(fl7) ; "RCyrj/MNl r CGST" ; Tf(B C6H) : "DN-HflNO" 

710 FOB Z=l TO 72=LPPIINT "«";!TMeXT ZsLPRINT " " 

720 LPRIWT " " 

730 RETURN 



RUN 'ILOG' 

INVEMTDRY LDS I'RODRAM 
ENTER THE MONTH FOR IHt INVEMTORY LDGf 1>ECEMEER 
ALI&M TO TQM-0("-pflDE AND PiiESS THE RETURN 
? 



IMVENTDRV LDO - MONTH OFi BECEhBER 
HEM LDt PESCRIMION UKVn/llNJi CQiiT ON -HANtI 



11111 la34 SUPER DELUXE WIDGET 

S32:;i' 123J MIDDLE CLftSS UIDGET 

33333 IZ31 (iDLD-PLATED MIDGET 



INWENTORy LOB is COMPLETE 

3 RECOftBS PRINTED 



BREftH IN 3S0 
OK 
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Inventorv Transaction Recording 

Program Name: IDAl'A 

This program accepts data that reflects the amount of inventory 
on hand at the end of a period and the quantities received from sup- 
pliers during the period. The information is wrirten from the terminal 
to a data transaction file for later use by program IREPORT in updat- 
ing the inventory and producing inventory reports for the period. It 
allows multiple runs of the program to combine several batches of data 
in one file; all entries must be in item-code order. 

Files Affected: Data transaction file 

5 CLEAR 900 

10 REM SAVED AT IPATfi 

SO REM INIl IflLtZflTION 

4S CLS 

SO MO-S 

6(> Ml-12 

70 M2=S 

BO DIM Ultll ) , ia(M2) ,V(t12) , F14 (MO) , D1*(«0) 

<?0 FS.= "fHNDE/" 

lOO R€I1 tt**-*t*il-»t*ittt*ttttt*tiii:t *.-$** tti*t*lt:t*t.*tt.*t*t.«ik*lt*y(tll* 

110 REM PROCESSING AREA 

12i1 REM t*»tttt»***»t***t**t*t**t***tt1littt****t1ntt***t*****1(t** 

130 PRINT ■HftWE THAMSACTIDNB ALREADY BEEN PARTIALLY ENTERED (V OR N)' 

i40 INPUT A« 

150 PRINT 

lAO QOBUEi 570 'ACCESS FILES 

17C1 IF LlfFT4(At,l!='"N" THEN 300 

ISO PRINT "SHALL I PRINT THE PREVIOUS ENTRICS <V OR N5 " : 

190 JNPUT A2* 

200 PRINT "DD VDU wish to correct previous entries (¥ Qft IM)"! 

210 INPUT Al* 

220 IF LEFT*(ftt*,l)<>"y THEN 260 

230 PRINT "ENTER ITEM NUMBER TO CORRECT" 

2-10 INPUT I8» 

250 IF LEN(IB»)^I THEN IS».= IS*+" ' : [30T0 250 

3AO QOSUB B2i> 'FIND PLACE IN FILES 

270 IF LEFT*(ftl*, n="y' THEN 200 

280 CLOSE 4 

790 KILL TO* 

300 PRINT "ENTER OUANTITV RECEIVED, UNIT PRICE, ENDING INVENTDRY" 

310 PRINT "t*t** 0,0,0 TO STOP *«***" 

320 BD91JB '^70 

330 PRINT I«; 

340 INPUT R,V9,Q 

3E"'J IF ROO THEN 430 

340 IF V7O0 THEN 430 

370 IF OOO THEN 430 

380 PRINT "DO VOU WISH TO STOP NflU (V OR N)"( 

39 rj INPUT ft* 

too IF LEFT*(fl», 1 ) <>"Y" THEN 430 

410 PRINT "PROBRAM TERMINATINH '■ 

420 B[)rO S30 

430 PRINT*3, IS; ■',"tR;V9;D 

^140 GOTO 320 

450 REM *llt***t*^t1tlf*»ili:iHHI.MIf*ti(»*ttt*lt*tt***ll.tlt!t.ti(*lftt*tt*»tt 

460 REM TERMINATION POINT 

470 REti *!t****IHt*tt*********t***\ll**********ll*M*!t****$***t***t 



4BCi GDSUe 730 'REWRITE INDEX 

490 PRINT 

SOO PRINT 

510 PRINT "TRflNSflCTlDN ENTRY IS CDKPLETE" 

520 PRINT 

S30 STDP 

5^0 REM ttit****lt***1f*t*t**Slt*t*****»*tlf*****!>ilt***tt****lt*t«*lt 

550 REM FILE HANDLING PROCEDURES 

S&O REM »*aHit*til*******».**t****»!tli***ii***it»*^tf*^$it$^**$:ftt$t 

570 HEM ACCESS FILES 

530 OPEN "I",1,F* 

S90 FOR I-l TO Md 

hOO INPUT*1 ,F1«<I) ,DJ* (I) 

610 NEXT I 

i20 OPEN "I",2,F1*(1) 

630 LINE INPUT*?, X* 

b^O Tl=LEN(Fl»(l> > 

650 IF Tl>6 THEM H»l!, 

660 T0»="X."+LEFT«(F1*(1>,T1) 

670 T1*-"T. '■+LEFT*(Fl*<l>,Tn 

ABO IF LEFT* (ft*, 1 )<>■■¥" THEN 710 

(.35 OPEN "I",4,Tt* 

6S6 OPEN '■0",3, TO* 

ie? IF E13F(4> TKEN i9S 

ABB IMPUT»4,Z* 

639 PRINT#3, Z* 

690 GOTO ia7 

6?S CLOSE 3,4 

7Q0 OPEN ■■l",4,T0* 

710 OPEN "0",3,T1* 

720 RETURN 

730 REM **ttt**tt*** REWRITE INDEX **t****t***t*****tlntll 

740 CLOSE J 

750 OPEN "O", t,F» 

760 FOR 1=1 TO MO 

770 PRINT*1,F1»(I) ;", "jDlttll;",") 

7B0 NEXT I 

790 P«INT#1,T1* 

aoo CLOSE 1,2,3 

810 RETURN 

3^20 REM ***»*****+ FEND PLACE IN FILES *#t»*it*t*t**#*»*i!* 

93fO IF EOF (4) THEN 950 

S40 LINE iNPUTttZ.X* 

850 INPUTil4, 19* 

S60 LINE INPUT#4,X* 

870 IF LEFT«(ft2». 1)="Y" THEN PRINT 19»,X» 

eao IF LEFT»(AI9, U<>"V" OR 19*013* THEN '^SO 

890 PftlNT "ENTER CORRECT RECEIPTS, UNIT COST, ON HflNI>- 

90O INPUT R,V9,D 

f^lO PR1NTW3, I9»J ",";RjV"»jO 

720 GOTO 960 

930 PRINTdS, 19*; ","; )(• 

940 GOTO 830 

950 PRINT "LAST RECDFtD W«S ";1*,I9« 

960 RETURN 

970 REM *»**«*»*♦»* + **♦ + ** REfiD MASTER FILE **************** 

9B0 IF E0F<2> THEN 460 

990 INPUT»2, I*,L*,C*,D« 

1000 FOR I si TO rtl 

lOlO tNPUT*2,U(I> 

102O NEXT I 

1030 Ih(PUT«2,B,R,0 

104O FDR r"l TO »2 

1050 JNPUT«3,P<I),V(I) 

1060 NEXT I 

1070 INPUT«2,RO,CO 

1090 RETURN 



RUN 'IDWTft" 

Hflije TRANSACTION ftLREAIrY BEEN PftRTIflLLY ENTEREC tY OR N)T N 

ENTER OUANTITr RECEiyEDp UNIT PRICEi ENDING INVENTORY 

***** 0^0.0 TD STOP ***** 

11111 T 15r67.S0-1S 

23222 7 OjO.O 

DO YOU WISH TD STOF' NOW <V fJR N) 

f Y 

PROGRAM TERMINATINB 

BREAK IN 13;iO 

□K 



RUN ■ I DATA" 

HAWE TRANEftCTION (VLREAOy BEEN PARTIALLY ENTERED (Y OR N)7 Y 

SHALL I PRINT THE PRE^>1UU!J tNTRIUS (1 OR N)V Y 

DO YOU UlEW TO CORRECT PREVIOUS ENTRIES CY DK N3 

■> N 

tllil 15 67,5 ^5 

LAST RECORD WAS 11111 

ENTER QUANTITY BECEiyEOr UNIT PRICEt ENDING IwyENTOftY 

***** OfO.O 113 WTDP ***** 

22222 7 50fS5.Ar4|.1O 

333J3 ? 10il5.11t90 



TRANSACTION ENTFIY 13 COMPLETE 



BREAK IN 530 
OK 



Periodic Inventory System 165 



Updating of Inventory M^ter File 

Program Name: IREPORT 

This program accepts the end<if-period inventory data from the 
data transaction file and makes the computations necessary for the 
update of the inventory m.istcr file to reflect usage for the period. It 
produces an inventory report of this usage. 

Files Affected: Inventory master file 
Index file 

5 CLEMf 900 

10 REM SAVED AT IBEPDRT 

20 dEH t*t*it*fiit**itx*ifttt*****t**1tt**tt1ttt****-*******t*****t* 

30 REM INITIALIZATION 

40 REM t**ttttft***l(*t****t*t*i^**tt■^l*t******^^***^*■t***t***t*^l 

4S CLS 

SO MC>"£ 

70 M2=B 

50 DIM UtMl),EHM2>,V(M2) ,Fi*<M0>,Dl*<f10> 

lOO REM *ll****il.*ll1f**»*^*****»**********************»*****t**.* 

110 REM PROCESSING ARE ft 

120 REM 1i**t**t**tt*tt4t****tt*****tttt**3t*t***tlfJtt*****^**ltt 

130 PRINT 

J40 PRINT 

150 PRINT ■' INVENTORY REPORT PROGRAM" 

ItO PRINT 

170 PRINT "ENTER THE MONTH FOR THE REPORT ") 

!BO INPUT M0« 

190 PRINT "ENTER TODftV'S MTE"; 

200 INPUT D9* 

210 PRINT "AUGN TQ TDP-OF-fAQE AND PRESS THE ENTER KEV" 

220 THPUT A« 

230 PRINT 

240 GOSUB too 'ACCESS FILES 

250 GOSUB 950 'PRINT HEfiDINeS 

260 QOSUB aiO 'REftD FILE 

270 UlmB+B-O 

2B0 eOSUB 1100 'UPEtATE FILE 

290 TO-TO+CO 

300 LPBINT I«5TAB(10) )I>*!TAB(37> ;E;TAE<<t5> ;RsTftB(&2> ;0; TA& (S-?) j DO; TftB lt2> ; 

:510 LPRINT CO 

320 L0=LO4-S 

S30 GOTO 2i-0 

340 REM **tt***t*******t**)l*t********t*************M****lt**it*lt* 

350 REM TEPMINATrON POINT 

360 REM *********************** iHtt**t*ttt*^tt***********t*it***tit 

370 LPRtNT " " 

3B0 FOR Z»l TO 72iLPRINT '■-"jiNEXT ZiLPftlNT 

390 t.PRIMT TAB (3S>; "TOTAL COSTS OF GOODS SOLD "l TAB (62) ; TO 

40O LPRINT " " 

410 LPRINT " " 

420 CLOSE 1 

430 OPEN "O". 1,F» 

440 D1«(«0)«^D'J» 

450 PRINT#1 , Fl* (MO) » " , " J Dl» (MO) j ", " I 

460 IF M0"2 THEN 500 

470 FOR I«2 TQ MO-1 

430 PR1NT«1,F1«(I); " , "; DJ* ( I) j " , "; 
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490 MEXT 3 

5PO PRIWT»l,Fl*fn;", ";01*(tl i ","i 

SIC- PR1NT«1,T1* 

520 PRINT "INVENTORY REPORT IS COMPLETE" 

530 PRINT ■' "iLOi "RECORDS PRINTED" 

341} PRINT 

550 CLOSE 1,2,3.4 

560 STOP 

560 ren subrqutines follow 

Aim rem access files 

6 jo open "i",!, f* 

t20 parr 1=1 TO MO 

i,30 lNPLtT#l,Fl*;j) ,PJ*<I> 

440 ne*;t ] 

6S0 INPUTItl.Tlt 

iiO OPEN "I",2,F1* ( L> 

670 T1=LEN(F1*< n) 

680 IF Tl>6 THEN Tl=6 

690 T2*~'"T. "+LeFT»(Fl»( 1) , Tl J 

7O0 IF TI«=T2* THEN 750 

71'> PRINT "TRflNSflCTION FILE NOT COMPLETE. HLL TRAMSflCTIONS" 

72a PRINT "MUST BE ENTERED BEFORE PROCEED I N6 • " 

73t) PRINT 

740 GOTa 541:1 

7SO OPEN "I",3,T1* 

7(ijO Tl«="*Jl«t***t" 

770 INPLir*2, IX)« 

7SCi OPEN "D",4,Fl*(MO) 

790 PRINTtt4, D94 

Si>0 RETURN 

810 REM !ll*t!t***lt**tlli READ FILE tt*****$*)t-ilt****$lf****iHHt 

32C' IF EDF(7> THEN 3M 

S30 1NPUT#2, l*,Lt,C*,D« 

840 FOR 1=1 TO Ml 

eSO INPUT*2,Ua) 

860 NEXT I 

S70 INPUT*t2, B,R,0 

SSti E=0 

890 FOR T = l TO 112 

900 IMPUT#2,Q(I) , V(I) 

910 NEXT I 

921:1 lNPUT»t2,R0,C0 

930 INPUT*3, I9«,R, V9,0 

')40 RETURN 

950 RPM *****»***»«*«** PRINT HEAUINE *«***»«*** ««*tt*4(*** 

9iO LPRINT '■ " 

970 LPRINT " " 

9Bi5 LPRINT " JNVENTORV REPORT - MONTH OF: "jMO* 

f'fO LPRrNT " PREPARED: ";D9t 

1000 LPRINT " " 

lOKi PRINT 

lOr^O TOR Z=l TO 72!LPRINT "*";:NE5(T ZiLPRINT 

103CI LPRINT "ITEM";TflB(10) ; "DESCRIPTIDM": 

1040 LPRINT TAB (36) ; "BEGIN" ; THB (45) ; "RCWD" ;T/=lFi(53) ; "END" ; TAB ( 59) : "USED" 

1050 LPRINT TSB<65) : "COST QF" 

1060 LPRINT TAB(3f,);" INV" ; TfiE" (533 ; " INV" I VftB («=> ! "GOODS" 

107O FOR Z=l TD 73!LPRINT "«"?iNEXT ZsLPRlMT 

1090 LPRINT " " 

1090 RETURN 
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IlOCi REM **«*«««*««*#****«* UPDATE FILE tt*t****#**ift*!t'Hl^t 

mo REM UPDATE USE DATA 

1120 FDR 1=2 TO Ml 

1130 U<J-l)=Uii) 

1140 NFKT I 

llSO U(M1)=UC' 

1160 REM ili*****»»*^t«*j«** UF-DATE RECEIPTS ******#*****»**** 

U70 FDR r=n2 TO J STEP -1 

liao TF 0(13 00 THEN 1200 

H90 NEXT I 

1200 IM V<?<>y(I) THEN 1220 

1210 DtDsiOdl-i-ft 

1220 IF I + I06 THEN 1300 

1:330 )t=(E(l)*V(l)+E>tr) tU(2))/(V(i)i-V(2>) 

1240 Q(l)-0[1>+E(2> 

1250 W (l) = »i 

12<'.0 FDR 1=2 TQ 5 

1270 (a(I)=a(I+13 

12B0 y<l)=V(Ii-l) 

1290 NEXT I 

1300 to( 1*1 I's'R 

1310 v( r+1 >=v'? 

1320 REIi ***»***»***»* UKDftTE CDSTS^V^LUES »****»***»*!»«**»* 

1330 CO=pO 

1340 IF U0=O THEN 1500 

1550 1=1 

1360 IF Q<rK>0 THEM 13<?0 

1370 PfiINT "«**ERRDf(t*3li COST DATft NOT COMPLETE FOR "jl* 

13S0 BDTO ISOO 

13<?0 IF C(r>;=Ut> THEN 1430 

14O0 Q( E)=CStI)-IJO 

1410 C0^CO+UO»VU> 

1420 HorO 1500 

1430 C0=CO+a(I) *V(I) 

1440 UOsUO-Dd* 

i450 FOR 1-2 TO M2 

1460 I3tl-t)=t'(n 

1470 V(I-l>=Vtl> 

1480 NEXT I 

14'?0 IF UOOO THEN 1350 

1300 UO=I.MMt) 

ISIO REtl *lt*t**t**^*tt*im FILE URtTE ttt**tt***t*******t**t 

1S20 PRIMT#4, I»; ", ";l.*! ", "jCS; "t'jD*; ", "; 

1530 FDR 1=1 TO Ml 

1540 PRlM1tt4,llMi ;", "; 

ISSO NEXT 1 

IS^O PRrNT«4,B; " , " ; R; " , " ; Oj " , " f 

JS70 FOR I J") TO M3 

istJO F-RiNr#4,a(i) ; ","fy(n ! ", "; 

1 5=50 NEXT r 

1600 PRINT*t4.R0,CO 

1610 RETURN 



RUN "IftEPORT- 



INVENTORV REPORT f ROGRflM 

ENTER THE MOMTH FOR THE REPORT ? MDytMIltR 

£MTEfi roUA'f'S DM£.> tlf/Oi/BO 

ALIGN TO TOP-OF-PAUE fiMD PRESS THE FIETURM 
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INWENTDRy REPORT - MONTH OF: NOUEMBER 
PREPSRED! 12/06/00 

ITEM :CSCliiPTI(JN BEGIM RCVn ENP IIFiEr COST nF 

IMV INy GOODS 

mil SUPER DELUXE WIDGET 

22222 hlDDLE CLASS UIDI5ET 

33S33 QDLII-Pl-ftTEn MIDGET 

TOTftL COSTS OF GOODS SOLD 15S7.7 



100 


15 


45 


70 


aso.s 


50 


50 


40 


60 


3390, 1 


30 


10 


?0 


-30 


-2iS2.9 



INWEMTORY REPORT IS KUMPLETE 
3 RECORDS PRJMTED 



BfiEAK rW 5iO 
OK 



Printing of Master File 

h'ogram Name: I LI ST 

This program produces a formatted list of the index file and inven- 
tory master file, with headings for ease of use. The list can be used for 
historical purposes or for review and vaJidation. 

Fi7es Affected: None 

5 tLSAR *?">(> 

10 PiEM SAVED AT IL.3BT 

■20 REM *********** »****»t*tltt«***i|tt»***l«*»i*«*;if.**tt*.j,4(t*tt**j; It* 

30 REM IMirrALtZHnON 

40 wrM *****t*t*t***t ******* ******i|!**(k****t ****** t#+ti,*t*«***^i 

4S CLS 

50 r10=2 

60 Ml=12 

70 112= B 

eO DIM U(M1>,Q(M21, W<M-.J),Fl*tMOk,Dl*{M0> 

90 F*="MINDe>;" 

lOD REM **************t*************i|(«««*tt«tt**i,***j|lt#**t*aH* 

no RKM PRGCtSSIMG ftftEA 

120 REM t****************************^**************^****^**^,^ 

i:;o PRINT 

140 PRTNl 

ISO PRINT '■ INWEWTDRV FILE. LIST PROGRAM" 

160 PKrWT 

170 GOSUB 3 to -ACDERS FJLKS 

180 BDSUB S30 'PRINT HEAtJTNBS 

190 BDSUB S20 'ftEAB FILE 

200 GOSUB A40 'PRIMT ROUTINE 

210 OOTU I'JO 

Periodic Inventory System 169 



220 REM ***** It**** t*1(«*iHitt****^l *»♦*******»*«******«** *.«***** 

230 REPt TE;Rl"llNATiaN POtMT 

2A0 RFM t************************** *-******«******«*»«** »***»«« 

2S0 PRINT 

2^.0 PRIN4T 

370 PRIWT 

ZeO PI5INT "INVEWTORV MASTER t 1ST COMPLFTE" 

290 PRINT '■ "jUO; "RECDP&S PRINTED" 

3Cnj PRINT 

310 Cl.OSi; 1,3 

320 STOP 

330 REN *.Jtli*****»t:>^tfitt».!t*ti*!tt'*-i.*t*:tii*:t.tirli.*.iilttrili.i.)f*.iltililfKi.tlflH.*lr*.t. 

3^0 REM SUBKDIJTIMFB FOLLOW 

3^0 REM *it»«i*[Jt]|iif<Hit*«Hij|t***^**i|i|«**««^!t^«li«««tx):«ili*ilc*4i*ilt«ir*«i«ji)r«» 

360 REM ftci:;Esa files 

370 OF-EM "I", 1,F« 

■3BCP PRINT "THE FOLLOWING FILES PiRIl WVrtlLABLE" 

3^0 PRINT 

-^OO PRINT TABUO) ; "FILE NAME" j TflD (25) s "CREflTlCM IMTE" 

410 PRINT TfiBilO);" "^TABtSSl!" ■ ■" 

120 FOK 1=1 TU MO 

430 INPl.lTttljFUidJ.nJKl) 

1^0 PRINT TABflO) fFl*(l) ;TWE((^S) ;D1«U) 

4KO NEXT I 

atO PRINT 

47i> PRINT "ENTER THE FILE NAME TO BE LISTED" 

4B0 INPUT FO'h 

'itO OPEN "I '-.EjFlD* 

SOO rNPLJT*2,Do* 

503 INPUT "fiLIQN TCI TOP-Of-PMGE AMD PRPSfi THR ENTER y^EV";fii* 

Hio ReruBN 

520 REM tsitt**«******n*»** READ FILE ** *n*** if******* i>* * *** 
S.SO IF E0FC2) THE^f 230 

540 iNPUTr;:, i*,Ls,c:*,D« 

S30 FDR III I TO Ml 
560 INPUT«7,LKI1 

370 NEXT I 

580 INPUT«2,B.R,0 

590 FDR 3=1 TO Mr 

6O0 INPUT*3,aCI> , V( I) 

410 NEXT I 

t,20 INPUT«2,R0,C0 

6:50 RETURN 

/,JiO REM *»*»*«!!»*«*«*»»*«» PRINT ROtJTINE *»*+*** + + »;**» «**»♦* 

650 LO^LO+l 

ftAO LPRTNT IrfiTAfi<i(»!l.S;T(^P(3E);C*jTflF'<"0> ;DS;TAB(4E) s B! TAB f 53> i R; TftB (60) ; O 

470 FDft 2-1 TO 72:LPRINT "-"j;NEXT IjLPRIMT 

tSO PflR !■=! TO Ml 

690 LPRIMT U(I};TAB(It5) ! 

7O0 NE>!T I 

710 LPftlNT " " 

720 FOR Z-i TO 72:LPRINT "-'■;!NE>!T ZiLPRINT 

730 FDR 1=1 TO 4 

74Ci LPRINT 0(1) n "/"; V(I) ;TAr)( t*15>; 

7S0 MEXT I 

760 LPRINT " " 

770 FOK 1-5 TO »2 

760 LPRINT 0(1) ; 'V';V{I)(TfhEi( (I-4>*);j>j 

yiJO NEXT I 

aOO LPRINT TftB(62}sR0 

SIO FDft Z--1 TO 72:LPRINT ■■*'■.; NSXT Z:LPRINT 

820 RETURW 
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830 REM ***»***«**»***» HFftDlNCi ROUTIWE ******* t»**«ttj(i(t*i(i4( 

HAO LPR3NT " " 

SSO LPRINT " " 

diO LPRINl ■■ INVENTnRY FILE LIST -"sFO*;" DATS PF F]Le-"5D0* 

070 LPBIWT " ■' 

eSO i.PR/tJT " " 

99!) FOR Z=l TD 72:LPRINT " *" -, -.HEUT Zil.PRiNT 

■JOti LPRINT ■'ITErM"5TftBUO>, "LBC" , TAB < 15> s "CLASS" ; TAB S2L3> s "DESCRIPTION" ! 

710 I.PRINT TfiD (4b> ^ "BEGIH"; 

920 UPRINT T(=iB(:i3) ; •'Rf^V^O";TflB(60) ; "ON-HflND" 

f-'M FOH K = l TD 72:LPB1NT ■'-";:HFXt ZlLPRINI 

940 LPRINT "OLWMTITiEtt USEB FOR" ;M1 j "PERmUS - OLDEEiT FIRST" 

9SO FOR Z=I TO 72: LPRINT "-";:NEXT IiLPKIWT 

960 LPRINT "INVENTORY VALUE - OLDEST FIRST QUHNTITV/ LIMIT COST" 

970 LPRINT TAH(^.0);"RlURDf;R hT" 

VSO FOR iBl TD 73: LPRINT " t " 5 : NEXT ZsLPRIIilT 

7V0 LPRIMT " " 

1000 RETURN 



RUN 'ILIST- 

INVEHTQRY FILE LIST PROGRAM 

THE FOLLOUINli FILKS rtFrE AVfllLrtPLL 

FILE NAME CREftTION DATE 

NflSTEf? 3 12/06/80 

MftSTER 1 11/30/80 

ENTER THE FILE NftME TO BE LISTEIli 
T MASTER 2 

iNVEMD/^r FILE LIST-HASTEH 3 DATt OP FlLE-12/t>A/eo 

+j(L*;i(:+*l);i|;**** + *it**f if ^^c*** + i([**;^iH!**!Ci);»******^4;t*tJt ;!.;(!********************** 
ITEM LOC CLAGE HESCKIPTrON &fOIM RCVD OM ((AND 

OUAMTlTieS USLC FOR 12 T'EKlODa - OLCEar FIRST 

TNUEWTORV MALUE - OlDEST FIRST OUftMTI TT/UNIT COST REORDER flT 

!ltliili**ii**^>r**::Fi):«**t'):xii***t**¥3F«ii<**ri|i*K*:!f**«**>f*ili«*:i:if***il'*!|:»*ili***3fc««***!^**** 

mil 1234 ABCC SUPER DELUXE UIDOE T 100 15 43 

*5 ?4 85 47 67 58 5^ (41 S2 130 IS 70 

30 / 12,15 15 / .47.5 0/0 / P 

0/0 0/0 0/0 0/0 ?0 

+***+***«♦♦♦*** **********;*****#t**i|t******t***ir*t**r***t***^ti|tt***»»t*5|ct *»*!)! 
22222 123i ftBCIi hlBDLE CLASS WIDGET SO 50 40 



O O 40 



40 / 5S.*A 0/0 0/0 0/0 

0/0 0/0 0/0 0/0 33 

*tili«**********tiit**H:itiit<i«*;l£«it1i*;l:**«^:K«*lt»H<*):*iK****;tK******:^ili!|[**I)**Ki»***:|i!IEifi* 
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37333 1234 ABXX EQLD-FLflT£0 WIDGCT tiO 10 "VO 

00OO0OO0000 30 

80 / Ba.13 10 / 15,11 0/0 ,* 

0/0 0/0 0/0 0/0 10 



INUEKITORY MASTER LIST COMPLETE 
3 RECORDS PRINTED 



BREAK IH 320 
OK 



Inventory Reports 

Program Name: IKtPORTi, IREPORT2, IREPORT3, IREP0RT4, 
IREPORT5 

These programs produce a series of optional reports that provide 
various formats and organizations for the inventory master file data. Re- 
port examples can be reviewed to determine the applicability of particu- 
lar formats to your inventory situation. Note that several reports 
provide breakdowns and subtotals by location or product clasi codes 
should you decide to use them. 

l-ites Affected: None 

10 REtl SWED fiT IREPORTl 

20 REM *it^*t*****'f'y*******t*1i*iiirAi.t±tttt*it*.ttMt*t<l'*.*ili.i^**tt''Hit^1f 

30 REM INITISLI2«TIPN 

40 REM t»;*« + *iHi***(i**iHi*»*».*t*t*»***»*****i«**+*********-**t**t 

45 CL& 

30 MCi-2 

60 M1"12 

70 «2=a 

SC DIM U(M1> ,G!£M2) , V<M2) .F^l* («0) , Dia (TO) 

90 F*="MtNDE)C" 

lOO REM 1itttnttt*t*ttt**lfimil^^**ti^l^tt*llfiH<it^iftt*iHi:t!lll».**lf*tt)i:** 

110 REM PROCESSING ARES 

120REM tt**)tt»****t**M**tt»**t**tttt***t**t*****t*ilt******lf*t 

JZO PRINT 

140 PRJNT 

iSO PRINT " INVENTORY REPORT PRDBRAM" 

JiO PRINT 

170 PftSNT "EMTER THE nUMlH FOR THE REPORT "; 

leO IMPUT MO* 

IfO PRINT "FNTER TQDA/'S DATE"; 

200 INPUT D^'f 

210 PRINT "ALIPN Tn TnP-0F-PA[5E AMD PRFSS THE ENTER KEY" 

770 INPUT H* 
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230 I. .PR INT " '■ 

r40 GosdB 470 'oncens filrs 

3SO GOSUB 6VO 'PRINT HEADINGS 

260 GD'iUR 570 'READ FILE 

27CI U0=B+R-I3 

3BO TO=T0+i:O 

StJO LPRINT I*:TflB( 10> ^D*f TflB£-7) ;Bj TfiB(tS) , R!TfiB<S2> |iO;TAHf5<*) nUO; TAB<i5J ', 

SOO LPFfINT CO 

5i0 LO=LO+I 

32<> GOTO 2AO 

;S30 REM )i»+t»tt*t*******tJt**i|i*t»t***t*)t ***♦***♦*»* **♦**** + ***!* 

S40 Ren TEf?MtNflTrON POINT 

350 REM ****lt**i.»**ll»******t*t*ll**»**t*****ti**i****.******tt**** 

360 LPftlNY ■' ■■ 

370 FOR 1=1 TD 7;:LFRINT " - " ; z NEXT ZzLPRlNT 

3B0 LPRIMT TABfTTS) ; "TarftL COSTS OF friODDS SOLD " : TSB (62) ; TO 

39rt LPfttNT ■■ " 

400 LPRINT " ■' 

410 LPRINT "INVENTOflV REPORT IS COMPLETE" 

420 LPRIMT '■ "iLO; "RECnRDS PRINTED" 

-H30 LPRIMT ■' " 

4a0 CLDSE 1 , 2 

45i:i STOP 

4A0 REM t»:iltittittltit*it***ifiHt**tt1l*>t**-*'tit»-***t*1f*l(tl*^*tl***t*!ttit 

470 REM SUBROUTINES FOLLOW 

4Si) REM 1lltt*tt:t!tt»*t<^>ll**IH**t:t*t*»*t****t*»****»i!m^*t******** 

490 REM ACCESS FILES 

SOO OPEN "I", 1,F* 

510 FDR 1=1 TD MO 

520 iNPUl#I,Fl*i.Ii ,iM*fi: 

530 MEXT I 

S40 OPEN "I",2,F1«(1) 

S50 INPLT«2,DO* 

S60 RETURN 

S70 REN *ilit»litii«iL«i*iliJLtL*«t** [^AD FILE «*^il<Ili»;lij|[t « ifctttilitt t«t 

3B0 IF EOF (2) THEN 540 

5*0 INPUT#2, I*,L*,C»,D* 

600 FOR 1=1 TD Ml 

£>!0 lNPUTIt2,U(n 

i20 NES(T I 

i30 INPUT»2,B, R,D 

640 FDR 1=1 TO M2 

6S0 tNPLiT»2, mn .va> 

o60 MEXT I 

670 INPUTtt2,R0,CO 

dBO RETURN 

690 REM I*************** PRKNT HeAlHNB *»****+*»»***»***»« 

7i:>0 I PR INT " ■■ 

710 LPRINT " " 

720 LFfiINT ■' REPORT V 

730 LPRJhTT '■ INVENTORY REPORT - MONTH OF: ";l>10« 

740 LPRINT " FREPftREB: " ; D=?» 

7 SO LPRINT ■■ " 

760 LPRINT ■' '■ 

770 FOR 7=1 TO 72:LFRINT " f ; : NEXT /;LPRINT 

780 LPRINT "ITEM" sTflBdO) ; "DESCRTPTtON"; 

790 LPRINT TA!H(3A) : "BEOIN" : 1 AB <45> ; "RCVD" j TAB CS3> 5 "END" ; TAB (59) j "UEED"J 

BOO LPRINT TflB(63) ; "COST OF" 

eiO LPRINT TflEl<36);" INV" ; TAB (S3) ;" IM7" ; TAB (6i.> ; "GOODS" 

320 FOR 7*1 TO 7S;LPR1NT "«"::NE)CT ^iLPRINT 

©3IJ LPRINT " ■■ 

S40 RETURN 
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RUN "IREPORTl' 



INUENTQHV REPORT PROGRAM 

ENTER THE HONTH FOR THE REPORT 7 NOyEMDER 

ENTER TODAY'S DUTEf 12/04/80 

ALIGN TLl TDP-OF~PflGE AND PRESS THE RETURN 



REPORT 1 
INtJENTORV REPORT ~ MONTH Or I NOUEMBER 
PRfJFAREOt 12/06/90 

ITen CESCRIPTION SEGIN RCUli END USEIi COST DP 

INy INV (jOOOS 

mil SUPER OELUXe UIPGEI 
2222S MIDDLE CLASS UIDBET 
333J3 SOLU-PLATED WIDGET 

TOTAL CDSrS OF (JDUUS 30LD ISS?.? 



iOO 


IS 


J15 


■/o 


BSO.S 


50 


50 


40 


60 


3390.1 


SO 


la 


vo 


-SO 


-2Aa?.? 



INyENTORY SEPORT IS COMPLETE 
3 RECORDS PRIMTEU 



BREAK IN ISO 
OK 



174 BASIC Computer Programs for BusinteS 



S CLEftR 900 

10 Ren Sfi'^ED fiT IREPQRT2 

20 Ren ***t**t**t»i*3»*»c«*»»:*»»i»!**nit**«»r****f**t*********t*t*** 

30 REM INllIALlirtTION 

40 HEM t**************************!*************************** 

45 CLS 

50 M0=3 

60 Ml=12 

70 t>12=S 

80 M3-100 

^a DIM U(Ml),fl(M2) ,WtM?J ,LO» CM^5 ,T(M3) ,F1S<M01 ,Dlt(M;CJ> 

100 FDR r~l TO Ml 

110 Lo»a> = "*- 

130 NEXT I 

130 F*="MIN!JEX" 

140 REM tll*t*IHi:tttli*t***t******************t*^******'>*i*t*****^ 

ISO REM PROCESSING ftREfl 

160 REh tiHt»*.tL»*il1fUAilt»ttifl^'tff<H****t'******t*)!.'IHmt$if%imi*t'H*it 

170 PRINT 

IBO PKIIMl 

190 PRINT " INVENTORY REPORT PROeRAM - BY LOCBTIQN" 

200 PRINT 

210 PRINT "ENTER THE MONTH FDB THF REPORT "s 

220 INPUT MO» 

2JO PS I NT 'ENTER TODAY'S DATE"; 

240 INPUT D9« 

250 PRINT "ALIGN TO TQP-CF-PflSE AND PRESS THE ENTER KEY" 

2A0 INPUT A« 

770 l.PRJNT " " 

2B0 GOSUE 690 >ftcr;ESS FILES 

290 GOSUB 1040 'INirmUIIE PiRRAYS 

JOO FDR K=l TO 1-17 

SIO IF LO*(K)="«" THEN 5S0 

320 BOSU6 sao 'PRINT HEADINGS 

330 IF E0F(2> THEN 420 

340 GOSUB 7/0 'REAO FILE 

330 IF LOtCKIOL* THEN 330 

3iO UO=BtR-0 

370 T(K)=T(K>+CO 

3S0 LPRINT l*!TAB(10>itDS;TAB<37>;B:TAB(4S) ;f>!TflB(52) ;0rTftBt3«f> ;II0; TAB f6S) ; 

390 LPFSINT CO 

400 LO=LO+1 

410 BDTO 330 

420 CLOSE 2 

430 BOSUE 740 'REOPEN FILE 

440 FDR Z-1 TO 73 = UPR:INT "-"^jNEXT JiLPRllMT 

450 LPRINT TAB(30J l"L£JC/>TtOtM ■'sLO*(K>,'" POST OF OOOUS SOLp ") TAB (63) J T (Kl 

AiO TO=TO*T(K) 

470 LPRINT " " 

460 LPRINT '■ " 

490 LPRENT " " 

500 NEXT K 

S:tO REM *tit*xitt*t»*t*it**iit**it****t*t********»***t*ttt!^tttiti.it 

320 REM TERMINATION POINT 

530 REM tt:tttt**yitt*i(*tt***tn**!Hi***t*»ilLttf>.)(itttt>>:***-**ttt**itt 

540 LPRINT ■' " 

550 LPRINT " " 

360 LPRIMT " " 

570 LPRINT ■' " 

5B0 FOR 2=1 TO 72:LPRINT "«";:NFXT ZiLPRINT 

590 LPRIMT TAB i"S>,- "TOTAL COSTS OF GOODS SOLD "}TftBf63)jT0 

60O LPRINT " " 

610 LPRINT "INVENTORY REPORT IS COMPLETE" 

620 LPRINT " "?LO; "RECORDS PRIMTED" 

i'JO LPRINT " " 

640 CLOSE 1,2 

650 STOP 

tliiCl REM »^tllLt»ltttiHm***t***M'li**t»!ll*if»»l**»)ltril!*ttl>lt.llftHtt*lH:t* 

670 REM SUBROUTINES FOLLOW 

£■80 REt-l it*iltt*t ********* il**ifT^1t****** tit* t*'l'***^t**ttff*tHHt]H» 



690 REM ACCESS FILES 

7O0 DPEN "I", ) ,F» 
710 FOR I"! TO J10 

730 Nfc'^T 1 

740 OPFM '•1",2,Fi*il) 

730 INPUTBS.DO* 

7iO RETUftM 

770 REM tttii.t**^t»*tt*titliit READ FIL£ )tTtttli:*tt*tttki:ttt1i^litt 

7SO IKPLIT*2. I*,L*.,C*, D* 

790 FQR 1=1 TO Ml 

aOO INPUTIt2,IJjr> 

BIO NEXT I 

B20 ]NPIJT*>2,£i,R,0 

830 FOR I^t Tl5 t12 

fl40 lNP;.ITft2, D<I>.Vfn 

(550 NF-Kl I 

aSiO lNPUT»2,RO,i;0 

S70 RETURN 

SBO REM ****************** PRINT HEBOIWH *»«♦*******«***«*«« 

B90 LPRtNT ■■ '■ 

<?O0 [PRINT " " 

910 LPRINT ■■ REPORT a" 

920 LPRINT " INVeWTORV REPORT - MONTH OF: ■' ; ItOt; TflQ < 40) ; "LOr: ",-l.( 

930 LPRIWT " PREPARED: " ; D9« 

940 LPRIWT " " 

^S<1 LFRINT " " 

'?liO FOR 2iJ rO 72:LPRINT "»";:WE>:t Z:LPRIMT 

«?70 LPRTM "ITEM";TAB(10) i "P&aCRlPTION"; 

^90 LPRJNT TAP (34) i"BeGIw''iTAPi4S) ; '■RCVn"!TA&<S3J ; "EWD" ; TAB O"?) ; "USED" ; 

990 LPRINT TAB<63)) "COST OF" 

1000 LPRIMT TABiii?;" INV" ; TAB t5S> ; " IN"^" ! TAB < t>6> f "GOOrjfi" 

1010 FOR Z=-\ rn TJiLf-RlWT "*"s:NeXT I:LP-R1NT 

tO20 LPRINT " ■■ 

lO:j0 RETLIRM 

1040 REM »i|(1i»t**»***t** INlTlftLlZE LDCftTlOW ARRflYS «««»«****» 

lOSO IF EOF (2) THEN 1130 

1060 GOEilie 770 ^RGAD FlLf 

l(:i70 FOR 1 = 1 TO ti3 

lOaO IF L«-LO«(I) THEN t050 

1090 IF L0« U 1 ■: >" * ■' THEN 1120 

llOO Lu»il)-L« 

lllO GOTO 1O50 

1120 ME)!T I 

1130 PLOGE 2 

1140 OPEN "r'.SjFl*!!! 

1150 INPUT»2,D0* 

1 1 to RETURN 



RUN -IffEPORTi* 



INVENTDRV REPORT CftnGRf^H ~ BV J.gCATIOM 

ENTER THE HONfH FOR THE REPOHT ? WOVEMBER 

EMTER TODflVE flATE? 13/04/80 

rtLIGN TO lOF-OF-PAGt: flWU PRESS THE RETURN 
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REKQRT 2 

INUENTORY REf-QRr - MONrH OF! NOUEMtER LOC ! 123^ 
PRePARED! 13/04/30 

ITEM BESCRIPTION 6EQIN KCVD EMD USEO CDST OF 

tnv iNu (3Dnns 

11111 SUPER DELUXE uihget 100 15 45 70 ayo.s 

33:J33 GOLJ}~pLAT£Ir UIDBET 50 iO ?0 -.iO -2652.? 

LOCATION 1234 COST OF EDDDS BOLD -1302.4 



REPORT 2 

INVENTORr REPORT - MDMTH OFl NOVEMBER LIICI 1333 
PREPARED! 12/06/eO 

ITEM DESCRIPTION »£SIN RCUD ENI> UBEn rjiSr OF 

INU INy GODDB 
*i):^««i^jrt4ix»:«**»IIIX«**xx*^*>II4(4r**i«***«**:lc«li«*»«««*XJt«««««*i«***»«t:«****XXK** 

222:>:2 MIDDLE CLf^SS UZDGET SO ^0 40 AO 3370.1 

LOCATION 1233 COST DF I50DBS SPLQ 3390,1 



TOTAL COSTS l}K GOODS SOLD 1507.7 
INWEMTORY REPORT 13 COMPLETE 

;j Kf.coRn:: printed 

BRErtK IN 650 
OK 



Periodic Inventory System 1 77 



5 CLEAR 900 

10 REM SAVED OT If^EPORT:; 

2^1 REM ttx*************** ****«*»*********»■****«* ********** + ** 

3;f) REM miTKILIZATIGN 

4i;i REM i|t**^*+«****»:**********i!t**«t********Sl|f****:***i|i******** 

4S CLS 

50 M0=2 

iO Ml-12 

7ti M2=S 

BO M'^lOO 

90 DIM U{Ml>,C!(rt2),Vitl21 ,L0*(M3>,T(K3) ,Ft*(«O>,l)i*(M0> 

JOO FOR I-l TD M3 

lUl LO*(I > = ■'*'■ 

IZCi NEXT I 

I3U ?■■*>=" M I WDEX" 

ISC' RErt PROCESSING AREA 

170 PRINT 

igo PRJMT 

190 PRINT " INVFIMTORY REPDPT PpnGRflM - BV LDCATIQM" 

JOO PRINT 

2X0 PRINT ''eNTER THE HCihJTH HOR THE REPORT '■; 

220 :nfut t10« 

230 PRINT "ENTER TODftY'B DATE"; 

240 IMPUT a"?* 

25C1 PRINT "flLISN TO TOP-DF-PftSE AND PRESS THK ENTER KEY" 

260 INPUT ft* 

::70 LPRINT " " 

3IK> Ensup O10 'ACCESS FILES 

290 GDSUB IIAO "INITIALIZE ARRfiVS 

30O FDR K»l TO «3 

310 IF L0*(K1="*" THEN 640 

33» SOSUB lOOO "PRINT HEADINGS 

3:;0 IF EOF 12) THEN 540 

340 SOSUB BfO 'READ FILE 

3S0 IF l.tV*(Ki<:^Lt THEN :jso 

36 C" JO-r+R-O 

370 FOR 1 = 1 TO hi 

3B<^I IF LHIK";0 AND X=0 THEN X-Ml-I + l 

390 IF X>i> THEN AO^Inili+Udl 

4O0 NEXT I 

*10 IF X>0 THEN ftO=IMT<flO/K) 

420 IF X=0 THEN ftO^O 

430 FOR 1=1 TO n2 

440 yO=VO*R(l>«V(I> 

4Su ME XT I 

460 T(k)=T(k:)+vo 

470 LPRIMT I «5 TAB (10) ;D«!TftBt37) ;UO;TflB(45; ! A0jTftB<51> jROlTABtS9J ;OjTAB(t5) ; 

4BO LPRIMT •■/O 

4fO A0=0 

500 VO-O 

510 X^'O 

520 L0=).0+1 

530 GOTO 7^-0 

540 CLOSE 2 

S50 QOSUB S^O 'ReOPEN FlUE 

S60 FOR Isl Tr3 T2SLPRINT "-"(iNFXT ZsLPRINT 

570 LPRIniT TftB(30>; "LiJCAriDM ";LOt(K>;" VSLUEOF BOdoa " : TrtB (i2> ; T (K) 

5B11 TO=TO+TlK> 

590 LPRINT ■■ " 

60[3 LPRIMT ■■ ■■ 

610 LPRIN1 ■■ " 

620 NEXT K 

^30 REM *:|i:li»it«ilit4t«iK*«i«llili4»!l(|[i:l!i|[t:^«it^«!t«ili»iElix]t.f£:li!lit.«i|[«iliit!t*ili *.**!). It 

i40 REN TERMIWATION POINT 

dniij LPftINT " '■ 
e70 LFRINT " " 
6ECi LPftINT " " 



A*fO LPftlWT " " 

70C1 FOR Z=I TO 73:LPRIWT " X" ; -.HEUT ^it.PRlNT 

7i0 LPRINT IAe<3B) f "TniftL VALUE DF INVENTORY " ! TAB (i2) ; TO 

720 LPRINT " " 

73i:i LPRINT "INVENTDRY REPORT IS COMPLETE" 

740 LPRINT " ")L0; "RECORDS PRINTED" 

750 LPRINT ■' " 

740 CLOSE 1,2 

770 STOP 

780 REn tt**t****i******IHit*tiH:it.tt**t*ta*t*a.t*******t*i*'i.*-***t* 

7*?0 REM SUBROUTINES FOLLOW 

SCCi REM 4t)^*:^i^t**^1l*)^*l^*****!l**ltt*:ii*****#tt$^*$*tt)f*i*t**>^****1t 

eiO REM ftCCEEB FILES 

620 OPEN "I", i,F* 

esti FOR 1 = 1 TO no 

B^O INPUT#1,F1«(I> . [>1 Sd) 

830 NEXT I 

860 OPEN "I",2,F1*C1) 

S70 INPOTtt^jDO* 

880 RETURN 

F390 REM 4t»**tt*t*t!Ht*t*ti* READ FILE **ll****:ti(t*ilit*t****it%X 

700 INPI.IT*2,It,l*,C*,D* 

910 FOR 1=1 TO Ml 

920 INPLU#2,U(n 

<?30 NEXT I 

940 INPUT*2,B, R,0 

?50 FOR I=! TO M? 

960 !NPiJT#2,i3a) ,vai 

970 NEJiT I 

9eo iNPijitts,Ro,rai 

990 RETURN 

lOOO REM llt***t**t******** PRINT HEADING ititltlHt^t************* 

1010 LPRINT " " 

1020 LPRINT ■' '■ 

1030 LPRINT " REPORT 3" 

1040 LPRINT ■■ INVENTORY REPORT - MONTH OF: " : MOt: TAB tAO) ! "LQC: ■■;LO«(K) 

tOSO LPRINT " PREPARED: " ; 1)95 

1060 LPRIWT " " 

107O LPRINT ■' ■■ 

I<i30 FOR Z = l TO 71?:LPRINT "*"::NEXT ZiLPRlNT 

1090 LPRINT "ITErt'-jTABdO) ; "DESCRIPTION") 

1100 LPRINT TAB(5i) s "USED" ; TAB (3i) j "flWG" ; TAB (51 > i "ORDER" i Tflp < 59 J i"END"; 

It 10 LPRINT TA&(i4>("WUUF. OF" 

I 120 LPRINT TflB('^5> ; "USE " i TflE (51 ) ! "POINT"! TSB CS"?* j " INV" j TA6 (6&> ; " GOODS" 
1130 FOR 7-t TO 72:LPRINT '■*";!NEXT IlLPPlNT 

1140 LPRINT " " 

II SO RETURN 

1160 Pen »i^*****«**** iNiTi(fiLr!E ldcation arrays tt»«*t**t*«* 

1170 IF E0F(2> THEN 12S0 

11 BO GDSllB a?0 -READ FILE 

ll-^O FQR 1 = 1 TO rt3 

1200 IF LS-LO*!!) THEM 1 J 70 

1210 IF L0«( !><>"*" THEN 1240 

1 220 LOS ( I ) =Lt 

1230 GOTO 1170 

1240 NEKT I 

1250 CLOSE 2 

12*>0 OPEN "I",2,F1*(1> 

J 270 IMPUT#2,D0* 

1?M RETURN 
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RUN -IREPORTS- 



INUEMTORY fJCPOfJl PROGRAM - bY LOCATION 

eWTKK THE NDNTH fOft THt REPORT ? NflWEMBER 

EMT€R TODftY'S DATE? 12/06/BO 

flLIDN TCI TOP~OF-PAGE AND PRESS THE RETURN 



RFPORT 3 

INVEHrORv REPORT - MOMTH (JF! NoyEMBER l.Oc: 1234 
prepared: la/oi/ao 

ITEM CIESCRJFT/ON USKD AWC DRCEK END UrtLLFE OF 

USE POINT INV GCJOns 

mil SUF-KR r'ELU>;E WIDGET 70 A3 90 45 13/7 

33333 GOLD-PLATED WIDGET -30 -30 10 90 722S.S 

LOCrtTION 1234 VftLJE DF GOOES 3^02.5 



REPORT 3 

IWyeWTGRY REPORT - HON TH Of! NOVEMBER LUC: 133J 

prepared: 12/os/rao 

ITEM DESCRIPTION USEIi ftWS nkVl-K END WflLUE OF 

(JSjE puiwt inu ooons 

********************** i(!****t#****t***t*Jt*l( Ik******* l|;*t*l|(ltjl3|r*i(i 1(1 l(l^3t!f It III )( lit It** 

23222 MIDDLE CLrtSS UIDGET dO iO 52 40 :f:22ii.4 

LOCATION 1233 yALlJE OF GOODS 222i,4 



************* ******************************** ******************* ******** 

TOTAL Uf^LUE OF INUENTOSr 10323.? 

INMENTOBY REPORT IS CaMPLGTE 
3 RECORDS PRINTED 

BUEAK IN 730 
OK 
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S CLEfiR fOO 

lO REM SAVED AT lRFFt1RT4 

20 REM »*t****»tt*llt*tX**tM»lil((llill(**r**t***tKi.».t**t.t:t*t.1(ll**t.il.iHt.t.*.* 

30 REM TNITIHLIZATinN 

40 REM ******t»*st***1i«***li***«1i(f««1i****«*******«1(**:***t***«** 

4S CLS 

50 M0=2 

70 M2=Q 
BO M3=100 

90 D3M IJtHl>ja(M'2> ,VtM2*jC0»(M3) ,T(M3) ,F1*<M0> ,D1*<M0> 
100 FOR I=-l TD M3 

no oo*<i>="*" 
120 NexT I 

130 F*='-MIMDej<" 

140 REM it*t*****t»****t**IHt**llit***t********'fH^**********tt4tt1llt* 

ISO RCM PRraCGSSINSS fiiREft 

liii:) REM »**»«» *i*i|[t*r«t««ttt*tJliililii(]iili**««il<»«^;|t«t*«;li**>ttiliili«;t«««t*li* 

170 PRINT 

180 PRINT 

J90 PRINT " INUENTGRV REPDRT PftDGRflM - BY CLASS" 

200 PRINT 

210 PRINT "ENTE-:r the month FQS the REPORT "5 

220 INPUT no* 

230 PRINT "ENTER TODflV S DftTE"; 

240 IWPUT D^ii 

250 P-RINT "flLIBN TG 10P-nF-PflSE AMD PRE5S THE ENTER KEV" 

2AO INPUT ft* 

270 LPRINT " ■■ 

280 GOEjUB 690 'ACCESS FILES 

3>fO SOSUB 1040 'INITIALIZE ftRRAVS 

300 FCR K=l TD M3 

310 IF CO*(K)""«" THEN 520 

320 B[)SLJB 880 'PRINT HEftDIMl5S 

330 IF EOF 12) THEN 420 

3^0 Ga&UB lib "READ FILE 

350 IF t;o*no<>c* then 330 

360 U0=B+R-O 

370 T(K)=7<KJ+i:0 

3BO LPRINT I*;TSE!<10) ;D*: TAB(37 > s Ei TAB (45) ; R;TAiS<52j sO; TflB(59> ; DO; ThC (i5> i 

390 LPRINT CO 

40O L(J=1.0+1 

410 BGTO 330 

420 CLOSE 2 

430 60SUB 740 'REOPEN FILE 

440 FOR Z=l TO 72:LPRINI "-";:NEXT ZiLPRlNT 

430 LPRINT TftB<30>j"lMV CLASS "iCOSfKJ^" COST OF GOODS SOLD " ; TAB((ii2) s T CK) 

460 Ti:i=TO*T(K) 

470 LPftlNT " '■ 

4BO LPRIMT " '■ 

490 LPRINT " " 

500 NE:<T K 

SIO REM %%1l.X%%%%%%%1l.%X*-lt%%%%%%%%%%1f.%%\1t%*t%1i.%%-H%%%IH%^%%tf>l.il%* 

520 REM TERMINATION POINT 

S30 REh it%tXt%*il.t.^%%1ll.%*ii%ii%ii!li.X%%t.%%it1i%%il%tV.ll.tX%Xt%%il.%%%%li%ii'^1i.n 

S40 LPRINT '■ " 

550 LPRINT " " 

biO LPRINT " " 

570 LPRINT " " 

ShCi for E = 1 to 72! LPRINT "fjltJEXT Z = LPRINT 

590 LPRINT TAB(381; "TDT(=ll CPEITS OF GOODS SOLD " ; TAB (i2 J ; TO 

600 LPRINT ■■ ■' 

Alt) LPRIMT " INVENTORY REPORT IS COMPLETE" 

620 LPRINT ■■ "jL05"FieCDRDS PRINTED" 

630 LPRINT " '■ 

440 CLOSE 1,2 

6SO STOP 



670 REM SUBROUTtNFS FOLLOW 

6Q0 REM ««t:tit*>»«|i*****>l*>«*»*»lit*«**)i«it-t*»>l<»i(«»Jt**i«««««l<)i««**i«« 

t.90 REM ACCESS KILES 

701") OPEN "I", !,F* 

710 FDR t-^i TO MO 

720 INPUT»1,F1*(I>, [)!*(!> 

730 MEKT I 

7411 OPEN "I",?,Fl«(n 

7S0 INPUT*2,D0* 

7 to RETtJ«W 

770 RtTH *it.*i*ttt>***it***i READ FU.E *t*5(i + *t*«*t*i(tt** + ****» + > 

7S0 INPUT*2, It.L*,C*,D* 

790 FOR 1=1 ^0 Ml 

aOO INPL1T*2,1J(IJ 

810 MEXT I 

S2Ci IWPUT(»2, B,R,0 

930 FOR 1=1 TO M2 

840 INPLITIt2,Q(X> ,V til 

350 NFXT r 

360 INPLITtt2,FiO,CO 

B70 RFTURN 

SeO REt^ **.*i**4*t!>i*t*'Hri PRIMT HEADING :t***ll**il***iHlt*t*1r*ii*: 

890 LPRINT " '■ 

•i-OO LPRINT ■■ " 

<?iO UF-RIMT " REPORT H" 

■t-ZO LPRINT " INVENTORY REPORT - MOWTH PF : " j W*i TAD (S91 ; "CLfStBS " j C'li* tKl 

fiO LPRINT ■■ RREPflRED: "j07* 

740 LPRINT " " 

910 LPRIMT ■■ " 

960 FDR Z=l 10 72:LPRINT "»"!!NE«T ZtLPRINT 

970 LPRINT " ITEri"!TAB(10) ;"DESCRIPT10N"; 

930 L.PRINT TftB(:3ti>-, "PFPilN'-iTSUfAf;) ; "RCVD" ;TfiB (S3> ; "END" ; TAS 159) ; "USED"; 

990 LPRINT TAB (AS); "COST DF" 

lOOO LPRINT TAStSit!" IWV" ; TflB (S3 J ! " INV" f T*>B (6i) [ "aOODS" 

1010 FDR 2=1 TO 72:IPR:NT "*";;NEXT 7:LPRINT 

102O LPRINT " " 

1O30 RETURN 

10-40 REM *»****»***«** IMITrSLr^E CLASS flf!«AVS5 ***** tXKt **« t * 

lOSO IF EOF<S> THEN 1130 

10^0 fifJSUB 770 'READ FIL-E 

1070 FOR 1=1 TD h3 

lOBO IF Gi==CO*ri) THEN 105O 

lO-JO IF CO«(Tl"C>"*" THEN 1120 

1 100 CO* ( I ) =C» 

1110 GOTO lOSO 

1120 MEXT 1 

1 130 CLOSE 2 

1140 OPEN "I",Z,Fl*Cn 

use INPlJT*r,DO* 

lliO RETURN 
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RUN ■IftEP0RT4* 



IWWENTORr KEPDRT PROBRflM - 

ENTER THE MONTH TOR TtlE REPORT T NOyeMtEft 

ENTeR TOliAV'S DATt:? t3/04/So 

flLlQN TO TOF-OF-PflBE flNt PftESS THE RETURN 

? 



REPnRT i* 

INWENTORy REIRDRT - MONTH OF: NOyEHBER CLASS ABCD 
PREFr^REP: IS/O6/S0 

ITEM DESCRIPTION 6£CrhJ RCVi' END USCS COST QF 

INi/ INU rjQI]D<i 

11111 SUPER DELUXE WIDGET 100 IS 45 70 S50.S 

22222 NlDIiLE CLASS UIDDET 50 SO +0 iO 3390.1 



INU CLASS rtBCD COST DF GOODS SOLD 4240. A 



REPORT 1 

INUENTORr REPORT ~ MONTH OF! NOVEMBER CLASS ABXX 
PREPARED! l2/Oi/eO 

ITEH DESCRIPTION BEGIN RCVD END JSECl COST OF 

INU INW GOODS 

33333 BDLD--PLftTEII WIDGET 30 10 90 -30 --2(432.9 

IMy CLrtQa SBXX COST OK GUODB SOLD -2A5J.9 



TOTAL C:U!if13 n^' CiOUOS SJILD iss;".? 

INVENTORY REPORT IS COMPLETE 
3 RECORDS PRINTED 

BRErtH IN A30 
OK 
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5 CLefiR 90O 

10 REM !5AUEP AT IREPDRTS 

20 REM l^l^.^ltl^l^*t***tlf*^lt$^fi^*■t'lfi:tiii:*t.±*^f'^**■^l^t***'^**in^t'^**■'^l^**'^t 

30 REM INITlfiLIZrtTICiM 

40 REM t1f.**t.tnttJm.*ittttitn%**.».*.t1i.Tit**.t1i.%tt^ittAf.t^tit.1tS*-if.ti.iittttil.t. 

4S CLS 

60 Ml. = 12 
70 t12=13 
SO M3=100 

90 Dm U(Ml),fl(M2> .VfM^),C0»(M3; ,T(t131 ,F)«(MO) ,Dl»(MO) 

100 FOP. l='\ TO N3 

110 CO*(I)="*" 

120 WEXT I 

IJO F*="MINnE)(" 

140 REM t*«t«*3rt***t«*i|i***^t*«^«*t>^«it*t**«**t>«**!««***«!l<»iC«:t«*i* 

150 HEM PROCESSING .^RtA 

li^O REM IILt**^t**-itt**'^***-** Hi** ****1f**********'i******* *****■'***** 

170 PRINT 

ISO PR.tlMI 

Vm FR3NT ■' INVENT ORV REPORT PROGRrtM - BY CLASS" 

200 PRINT 

ZIO PRINT "ENTER THE MONTH FOB THE REPORT " ; 

320 INPUT MO* 

230 PRINT "ENTER TODAY'S DATE"; 

240 INPUT D<?t 

230 PRINT "ALIGN TD TDP-OF-PfiGE AND PRESS THE ENTER KEY" 

260 INPUT A* 

270 LPFUNT " " 

280 BOEUB BIO =ACCESB FILES 

:i'=fO csosue uto = initialize wrrays 

300 FCJFl K=l TD M3 

310 IF CO*(KJ="*" THEN t40 

320 GDS!;b lOOO 'PRINT HEADINGS 

330 IF E0F(2> THEM 34<J 

340 GOSUB B90 'REftD FILE 

3SO IF CO«(K)<>C* THEN 330 

360 UO=B+R-Q 

370 FDR 1=1 TD Ml 

:3S0 IF IKDOO AND )!=0 THEN X-Mt-I + i 

390 IF )r>0 THEM AO=AO+J(IJ 

40O NEicr I 

410 IE X>0 THEM «0=INT<AO/X> 

42(1 IE <=0 THEN AO=0 

430 FDR T=l TO M2 

440 WO=V0+O(I) *(^<I) 

450 ME^T I 

440 T(K>-T!K)*VO 

470 E.PRINT I*iTAiFiU0J;D4;TAE(37> iU0iTAE(4S) : AOj 7 AB<sn jROjTAli (!9> 3 Oj TAB(6S! ; 

4S0 LPRJNT VO 

490 Au=0 

30i;i VCi=0 

SIO x~o 

520 LO=LO+1 

S30 6QTD 330 

540 CLOSE 2 

550 GOSUB S60 'REOPEN FILE 

SiiO FOR 2=1 TD 72:LPftINT "-"isNEifT IiLFftINT 

S70 LPRINT TrtBia";) J "IN^/ CLASS "jCO*(K>;" VALUE OF GOOUS " 5 TAB ( t2) ; T (K) 

SBO Ta=T04-T(K> 

5<?0 l.PRINT " •' 

60O L PRINT " " 

610 LPRINT 

iao Ne>:T K 

640 REM TEfthlNATlCiN POINT 

<b50 REN tt«ti«»t(»a[4:it«J<t««;li«t*it«i«*««[««X*t>iCt«««tx;l:lii|i«I«:Hr«t)t*t 

66C1 LPS I NT " " 

670 LPRINT ■■ ■■ 

6B0 LPRINT ■■ " 



i^O LPRIIvn 

700 FOR 2 = 1 TO 72:LPRINT "*";:NE)(T Z:LPRlWr 

7J0 LPRINT TAB ( 3ia > s "TOTAL VALUE OF JMVENTORY "jTAB(A2);T0 

720 LPRINT •■ " ■ 

730 LPRINT ■'INVENTORY REPORT JS COMPLETE" 

740 LPRINT " "sLO; "RECORDS PRINTED" 

750 LPRINT " " 

laO CLOZE 1,2 

77Q STOP 

7BCI REM *%%'liTt*t*%tt**if1l.*».ilimililtiHl%%*%t1t)l.1tt**iHiH(tt*.**t.*1Hl*.1t* 

7»0 REM SUBRDJTTNE5 FOLLOW 

BOO REM Htltt*'1-%t*t**'Jl-1-t*it*%**ftt.t%ll.i.t*.*il.t*-lt*iit.*il%%il.%%H-IH%** 

810 REN ACCESS FILES 

S20 OPEN "I",1,F» 

BJO FOR 1=1 TO MO 

840 INPLT#l,Fl*U) ,D1*<IJ 

950 ne>:t I 

SAO OPEN •■I",2,Flt (1> 

970 INPUT#2,D0* 

SSO RETURN 

S90 REM **************** READ FILE *********************** 

90Ci 1MPUT#£, I*,L*,Ct,D'ti 

910 FDR 1=1 TO MI 

92Cl INPLIT#2,1J(I) 

930 NEXT 1 

940 1NPL1T«2,B,R,Q 

9SO FDR r=l TO M2 

<?A[n INPUT*t2,a(I) , V(I> 

970 ME XT i 

9S0 IWPUT#;,Ri5,C0 

990 RETURN 

lOOO REM t*************** PRINT HEADINK **»******»***»»♦* 

1010 LPRINT '■ " 

1020 LPRINT " " 

1030 LPRINT " REPORT S" 

1(540 LPRINT " INVENTORY REPORT - ftDNTH OF: "; MC'+i TAP (iCi) ; "CLASS: '■;CCi»fk) 

1050 LPRlNT " PKEPftftEDi "sD'?* 

1060 LPRINT ■■ ■' 

1070 LPRINT " " 

lOao FOR Z=l TO 72!LPRINT "*"j:Ne)(r ZiLPRINT 

1O90 LPRINT " ITEM"; TAB t lOl ! "DESCRIPTION"; 

1 100 LPRINT TAB(3&> ; "USED" : Tub (45 > ; "AVO" ; TAB*51 ) ; "ORDER"; TAB 13<?) : "END"; 

1110 LPRINT TAPt64>;"VJALUE OF" 

1 120 LPRINT TAB (45) ; "USE" ! TAB (51 ) j "POINT" ; TAB (59) s " INW " ; TAB (6A) ; "GOODS" 

llTri FOR ZeI TO 72!LPRINT "*";!NEXT ;!l.PR7NT 

1140 LPRINT " " 

1 ISO RETURN 

1160 REM **ti«*tinii*****»* INITIALIZE CLASS ARRAYS *«*«»*««*«»« 

117D IF EOF 12! THEN 12SO 

lltJO BOSUB 890 VREAD FILE 

n^Ci FOR 1 = 1 TO M3 

1200 IF C*"=CO*<I) THEM 1170 

121i:p if C0*(I)<>"«" THEN 1Z40 

1220 CO*(I)=C* 

1230 SOTO 1170 

1S40 NEXT I 

1250 CLOSE 2 

1260 OPEN ■'I",2,Fl-t(i> 

1270 INF'UT*2,D0» 

12B0 RETURN 
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RUN -iREf-ORTS" 



INWCNTQRY REPORT PROGRAM - «T CLASS 

ENTER THE MONTH FOR THE REPORT T NOWEhIl£K 

ENTER TQIflT'S DBTET 12/06^80 

ALJBN TD rOP-DF-PnOE AMD PRESS THE KETURN 

t 



REPORT 6 

INVENTORY HEPDRT - MONTH OF! NOVEMBER CLASBI ABCD 
PREP)!|R£D! 12/06/GO 

ITEM DESCRIPTION USED AUG ORDEK END WflUJEi OF 

USE POINT :nu eoous 

mil SUPER DELUXE MIDGET 70 (43 ?0 4!j 1377 

22ZZ2 MIDDLE CLASS WIDGET 6.0 60 52 ■*<) 22^6. t 

INV CLASS ABCD VALUE OF- GOODS 360J.4 



REPORT 5 

INVENTDRY REPORT - MONTH DP I NOUEMBER CLASSY ABXX 
PREPARED! 12/06/SO 

ITEM DESCRIPTION USED WG URDEK END WALUE DF 

USE FIJI NT INV GOODS 
>t * 1 1 It * fi f III f ^|[lF3t ^ It 4c4:;^:f f t>^f 1< II ^1< 'I* 4 4^:^111 >ll 1^ f 4( III 4:^ 1(1 X^*')' It « 4:^4* III *: «*«il'.ll; IK « * It IK3C IK * * « >:* « * it 

S3333 GOLD-PLATED WIDGET -30 -30 10 ?0 722S,S 

IHW CLASS AEXX VALUE OF GOODS 732S,S 



TOTAL UALUE OF INVENTDKY 100:18.9 

JMVENTOpy REPORT IS COMPLETE 
3 RECORDS PRIMTEO 

BREAK IM 770 
OK 
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Inventory Analysis 

Program Name; ICOMP 

This program provides inventory analysis informacion and can easily 
be extended to serve other analytieal functions. Note that in its present 
form it can produce both projected-use information (based on weighted 
avenges) and a list of items that have fallen below their reorder poittt. 

Files Affected: None 

lO REM SAVED fiT ICDMP 

20 REM ll««*»»tt*!(l*t»******* + *H!**t»*Jll*t«t**«**1lt***»*:****»*J!»»t 

30 REM IMITTALIZftTION 

45 CLB 

50 M0=2 

60 Ml=i2 

70 M2=e 

80 DIM U (Ml) ,e>(M2) , V{M2>,F1* (MCJ),])]* ihOt 

90 Ft="MlNriE«" 

no REM PROCEBSIhHS AREA 

130 PRINT 

140 PRINT 

150 PRINT ■' IMWEtvlTORV SMBLYSlEj PRDfiFtfiM" 

lAO PRINT 

170 PRINT "ENTER THE MONTH F-'OR THE REPORT "! 

laO INPUT MO* 

1";0 PRINT "ENTER TQDA/'S DATE"! 

200 INPUT D9« 

210 PRINT "ENTER THE REPORT TO BE PRINTEP" 

220 PRINT " 1 ALL ITEMS 

230 PRINT " 2 ITEMS BELOW REORDER POINT" 

SAO INPUT ft 

250 PRINT "ftLIGN TO TOP-OF-PAGE fiND PRESS THE EWTER KEY" 

2AO INPUT ft* 

270 LPftINT " " 

HBO B03UB 650 ' ACCESS FILES 

I-JO BOSUB 850 'PRINT HEADINGS 

300 BOSUB 730 -READ FILE 

310 UO=B+Fi-0 

320 FDR 1=1 TO Ml 

330 IF IJ(I)<>0 AND X«0 THEN X-Ml-I + l 

340 IF >!=0 THEN 330 

3S0 ACi=A0+U(n 

340 P<?=P<?4-U(I ) *I 'WEIGHTING APPLIED HERE 

370 C9=C'?+I 

3S0 NEXT I 

3<?0 IF X>0 THEN AO=INTCAO/X> 

400 IF X>0 THEN p9=JNriP9^C9> 'PROJECTED USE COMPUTED HERE 

410 IP ft--5 AND 0>ftO THEN :^oc> 

420 LPRINT ItiTSB(lO) )D«;TftB(37) ; UO; TftB <-^5> ; rtO; TAB f 52) ; BO; TflBiS?) ; O; TABS45) ; 

430 LFRINT P9 

440 L0=L0+1 

4S0 X=() 

4AO P^iiO 

470 CSfiiO 

4BO AOaO 

4VO GOTO 30O 

SCO REM *fll.*tt/lHttt*-itll'lf*4i*.ttif'lt.'ti.*t*iltt**t1tt.t.*^*t:1t^%*»^timt%ti* 

510 RtM TERtllWftllGN POIWr 

520 REM i**lt!ll*»!tl«*Jlt!t!l(**»LlK*I^Stltgt«li):4»«^«*k)t««3tllLll(l«3<4[llt;*;«tl|ii«***;t***«t4<« 



530 LPRINT " " 

54fi FOR ^ = 1 TO 72:LPRiNT "-"jiMEXT IiLPRINT 

S50 LPFtlMT ■■ ■■ 

560 LPRINT " " 

570 LPRINT "INWENTORV ANALYSIS IB CHMFLETE" 

5aO LPftINT " "sLO; "REEIDRDS PRINTED" 

590 LPRINT ■■ " 

600 CLOSE 1 , 2 

ilO STOP 

6S0 rc-:m t««»^t»a(***«*«»:i(iiit*«**«««»*t«»i«*i!:*t*«««iiit««it4it>c>»*ti|[i«*«i» 

630 REM SUBROUTINES FOLLOW 

Aso re-:m access files 

660 OPEW "rM,F* 

(S70 FOB 1 = 1 TD NO 

i,BO INPUT#l,Fl*n),Dl*CI) 

690 NEST I 

700 OPEN "I " ,Z,F1» (1) 

710 INPUT* 2,DO« 

720 PETURW 

730 REM *iH.tt*T*^***tt*^ir.t.**'t*t** READ FILE tt*.*tt*.i:*tt*H***** 

740 IF EDF(2I THEN SI O 

750 IWPUT«2, I»,L*,C«,D* 

760 FOR 1 = 1 TO ni 

770 IMPWTi|12,U(I) 

780 NEXT I 

790 1NPUT#2,B,R, D 

BOO FDR 1 = 1 Til M2 

SIO INPUT*2,Q{I) ,vas 

020 NEXT J 

ejO IMPUT#^,fSO,C0 

3*0 RETURW 

B50 REM ********************** PRINT HEftlMWE +*** + ***»***Ji«***« 

660 LPRINT " " 

B70 l-F-RlNl ■' '■ 

eao LPRINT " INVfNTDRV ft^JrtUVSIS - MOWIH Ot'J " ; MO* 

S90 LPRIKT " PBEPABEn: "iD"?* 

900 LPRINT " " 

910 IF fl=2 THEN I.PBINl " ITEMS BfcLpliI REORDER POINT" 

>?20 LPRINT ■' " 

9,50 FElft 2-1 TO 72!LPRlNr "t" ; iHEy.T Z: LPRINT 

940 LPRINT "ITEM" JTABCIO) s "DEaCftlPTION"; 

•JSO LPRIWT TftB<3a) ; "USED" j TAB <45> s "ftyO" s TBB (SI > ; "REaRDEH" ; TAB (59) ; "END" f 

960 LfRINT Tfli3(iS)5"PRDJ. ■■ 

970 LPRIWT TAB < 45) ; "USE" s TAB (H:;) ; "f>n INT " ; TAB <EJ'^?> ; '■ INV" ^ TAB (66) t "USE" 

9eO FOR 1=1 TO 72:LPRINT "*";:NEXT ZiLPftINT 

9<?0 LPRINT " " 

ICiOO RETURN 



HUN 'ICOMP' 



IN^IENTOSV (4MALYSIE F-RDDftflM 

ENTER THE MONTH FDR T(l£ REPORT ? NOWEMBER 
ENTER TDDAY'S DATE? 12/OA/SO 
ENTER THE REPORT TIJ BE PRINICIl 

1 ALL ITEMt; 

2 ITEMS BELOW KEORDER POIMT 

ALIEN TO TQP-OF-PABE fiND PRESS THE RETURN 



INUENTORY ANftLYSIS MONTH llFi NOVEHBGR 

PREPARED! 13/OiS/HO 

ITEM DESCRIF'TION UBEU AUG RfUtJIltR ENIl {'HO..!. 

USE PDINT INU USE 

mil SUPER DELUXE UIDBEI 
22S33 HIimUE CLASS UIDGET 
33333 GQLD-PLATED UIDGET 



IWMENTORV ANALYSIS IS COMPLETE 
2i RECURBS PRINTED 



■/o 


/,3 


*0 


4S 


62 


60 


60 


52 


40 


60 


■30 


-SO 


10 


90 


-SO 



BfiEAK IN 610 
OK 



RUN "ICCMr' 



INWEhfTOftT ANfiLfSIS PROGRAM 

ENTER THE MONTH FOR THE ftfJOFff ? NOUEMBER 
ENTER rODf^V'S DATE? 12/06/BC 
ENTEft THE (*Ef=-OftT TO BE PRINTECj 

1 ALL ^TEMU 

2 irE:M!3 BELI3U REDRPER POINT 
7 2 

ALIGN TO TDP-UF-PAGE AND PRESS THE RETUKW 
T 



INVENTORY ANALYSIS - MONTH OF: NOOEMBER 
prepared; 12/06/80 

ITEMS BELOW REORDER POINT 

ITEM DESCRIPTION USED WS REORDEF! END PROJ. 

USE POINT INU USE 

11111 SUPER DELUXE UIDGET 
22222 MIDDLE CLASS WIDQET 



70 


63 


90 


45 


A3 


60 


60 


S2 


40 


60 



INVENTORT ANALTSIS IS COMPLETE 
2 RECORDS PRINTEE 



BREAK IN iiO 
OK 
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Reorder Point Computation 

Program Name: REORDER 

This program accepts keyboard entries of average use and delivery 
time for various products and computes the minimum inventory levels 
for reordering replacement materials. Since use and delivery times are 
considered fixed, the occurrence of above-average demand or delivery 
delays will result in stock outages. Critical items should have their re- 
order point adjusted upward to cover contingencies. 

Comment: This program can be modified to interface with either 
the periodic or perpetual inventory systems. 

Files Affected: None 
5 CLEAR 900 

10 REM SfiWED AT REORDER 

20 RE.M COMPUTES REORDER POINTS USING A BflSE-aiOCK SVSTEM 

30 M^IOO 

40 DIM IS(M5 jlJiM) ,D1N) ,Fi Itl) 

SS CLS 

iO PHI NT 

70 PRINT 

eO PRINT "ENTER THE NUMBER OF DAYS SAFETV STOCK TO MAINTAIN"; 

"JO IWPUT S 

100 PRINT 

J 10 H-KINT "ENTER FOR EACH 1 TEMi " 

120 PRINT TAEKSi ! "ITFM NAME, ft VER ft BE DflTl_Y UBE,DftVE5 UNTIL DRDGR IS RECEIVED" 

130 PRINT 

140 PRINT "EXAttPLt WIDBET GLSSS 1,3,15" 

150 PRINT 

160 PRINT "JUST PRESS THE ENTER KEY WHEN FIMISHED" 

17CI PRINT 

ISO PRINT "ENTER IMFORMATION MOW" 

190 PRINT 

200 FOR I - 1 TD M 

210 I«(I)="" 

220 INPUT l«([),LJ(n,D<I> 

■IZa IF I*(I}="" THEM 2i.O 

240 NEXT 1 

250 REM *t:«»*t:it!t«?>k^^*)kil<it»k!t4t»JHI**ii|"r!t**^4'il<K4<l4:^it4i4i.ii4<itt>4<t4<4<4- 

240 F(EM PRINT RESULTS 

170 REM *ii.*n*it**ti.***%*.ii*li**%ii**tif**it.ifm**l^*ti-**%*ii*-kt*til****t.*** 



2yo hi='i--i 

290 PRrWT "PQSJTION PAPER NPU" 

3O0 IMPUT A* 

31Ci LPRINT " " 

320 LPftINT " " 

330 LPRIKT X* 

340 LPFtllMT " " 

3EO LPRINl ■rfiB(lO)}"ITEM";TA6(40);"«VB USEJ" ; TAB <S0> j "T IME LAG" ; TA6 *(iO) : 

360 LPRINT "PEmRDER AT" 

:t7'> lprimt " " 

380 FCIR 1=1 TO MI 

590 R<i:--'S*u<r>+ufij tBct) 

400 LPRINT I*(I) sTfiB (40* jl.M n ;Tfie!StJ'J ;D( I) ; msftC) !R<I1 

*to hiein I 

■t£0 REM *****«*******»»*»»******»» **l(l«t»:((llil»***lll*]t«»i|(ilkt:|tt^j(.i|,j,j 

■*:'><1 RHM PRORRflM TERMINATmM POINT 

440 REM ****«****»♦*«*>***«**»**»»**** If************************ 

450 PR TNT 

4AO PRTMT 

470 PR INI "PROCEBBIMG ("OMPLErE" 

4S0 PRINT 

4V0 STOP 



RUN 'REORDER" 

EMTER THE MUMEtTR OF BATE Si^FETV STOCI^ TO MfilNTi^rN' 5 

ENTER FDR KflCH ITEMl 

ITEM NAMErAyERMJE DrtlLY USe>BftYS UNTIL ORCER IS KKCEiyEJ) 

E;>!AWf'l-E UIDISET CLftSS 1.3.15 

JUST PRESS THE ftETURN WHEN FINISKEt 

ENTEFr rNFOKMflT:inH NDW 

? SUPER UinGET>3>15 

T NIItDLE f.LrtSS WIi>0ET,2>S 

? BUDGET UIDBETriiS 

1 SUFFER R-TrpE WItlGETrl.iS 

POSITIOM PAPER NDU 
7 



ITEM MQ USE TIME LAG FtEORDER AT 

SUPER UinOET 
MIDBLE CLi^Sii U.inCET 
BUDGET WIDDET 
SUPPER «-TVPE UIDGET 

PROCESSING COMPLETE 

BREAK IM ■590 
OK 



3 


15 


60 


2 


5 


20 


1 


S 


7 


1 


2S 


30 
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MAJOR SYMBOL Tf^ELE - REORDER 



I NftME 
I 



A* 

MO 

I 

i»o 

N 

Ml 

RO 

S 
U() 



DEECftlfTIOhl 



DUMMV ANSWER ^ARIABCE 

IiA-X flRRrtV FOR TIML" LAG 

IKPEK flWD ARRAY POINTER 

ITEM NrtMt AfthAY 

MAXIMUM NUMBER OF ENTRIES ROSSrBl-E 

WUMEfER OF ITEMS ENTERED 

REORDER POINT ARRAY 

NUMBER OF PAYS SAFETY STBCK TD KEEP 

DAn.Y USE ARRAY 

LINE DF ASTERISKS 



FUNCTIONS USED 
t 1 

I NAME I 

I 1 

I TAB I 

I DIM I 



Inventory Turnover Analysis 

Program Name: ANALYSIS 

This program accepts keyboard entries of inventory on-hand 
amounts, calculates average inventory (numbers and vaJue), and then 
determines the inventory turnover ratio, tliat is, the cost of goods sold 
divided by the average inventory value, All data is entered in response 
to program messages. 

Comment: This program can be easily extended to interface with 
either perpetuil or periodic inventory systems. 

Piles Affected: None 

5 CLEAR 9&0 

10 RKM SAVEI> AT ftWl.VmS 

20 REM inv!;:ntdrv turuqver analysis f-rogram 

40 Xt^" I************** »:i|(**lHl*(i**i**«*************t* **********♦*" 

4 5 CLS 

50 PRINT 

f,0 PfttNT 

70 PRINT "ENTER THE MUMBER OF MOhfTHS TD BE fiNALVXED") 

80 INPtiT N 

■70 DIM n(N> 

lOO PRINT "ENTER THE PRODlJtlT NAME"; 

no IMPUT NSi 

1?0 T=0 

130 PRINT -eNTER THE TC3TAL COST OF GOODS SOLD FtiR THE PEF!l!aDS"e 

J ad INPUT C 

ISO PRINT "ENTER THE AMOUNT ON-HAND FOR THE FOM.DWING PERIODS" 

160 PRINT 

1 >0 PRINT "PERtOD DN-HAND" 

ISO FOR 1 = 1 TO N 

190 PRINT UTABdO* 
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200 INPUT 0(1) 

210 T-T+D(I) 

220 NEXT I 

230 PRINT "(iNTER THt: AVERAGE VALUE nF EACH lT£M"s 

340 INPUT V 

250 fil^Tf-N 

360 A2=y*ftl 

270 flj-sC/A? 

2S0 PRIMT 

TOO rf:m print gf results 

31 a REM ti!tlti^t**t*tif**t***t**'**t**tl^*i.l^*l^l^t'^.*t».*****l^t^^*.snf.l^*%*.^ 

320 PRINT X* 

530 PRINT 

340 PRINT rflB(20) ;"INVENTOK¥ TURNOVER AMfiLYSIE" 

350 PRINT TAB<25)sN* 

Z&O PRINT 

370 PRIN1 TABfl<»j"AVG ON-HflND" ; TnBCEH) ; "flVB VALUE" jTftB(40) ) "TURNOVER" 

3SO PRINT 

390 PRINT TAf)(1?);rtl;TfiB<?5):A2,-TAB(10) ;A-3 

40O PRINT 

4JO PRINT XS 

430 PRINT 

4T0 PRINT ■■ ANOTHER PRODLICT? (V OR N)7"; 

440 INHUT A« 

4SO IF A«~"v" THEN !00 

4^0 REM *t**ift****i|!*t*it******i»*»«!|t******** + *l**1'»tt*»****»;*»*t* 

470 REM PRQQRAM TERMINATION POINT 

4R0 REM t***iH^**t**l^**'^*»lll*******1l*M*t1fi*^Ht**tl'^**»■^t*.**.***»i^^**^:* 

49Q PRINT 

50O PRINT "PRDCEGSINB fJGMPLElE" 

510 PRINT 

S20 STOP 



RUN ■ANALYSIS" 

ENTER THE NUM6EIV OF MONTHS TO 6E rtMrtLYZED? i 

ENTER THE PKODUCT MftMET SUPER WlnePTS 

ENTER THE TOFAL, COST OF GOOUE SOLU FQR THE PEniaDS? 1200 

EMTER THE AMOUNT DN~HftND FOR THE FOLLDUINQ PERIODS 

PERIOD ON-HfiMD 

1 ? 10 

3 T 20 

3 7 30 

4 T i(0 

5 7 50 
* T 6a 

ENTER THE AVERAGE VALUE OF EftKH ITEM? 10 

INVEKTORV TURNOVER ANftl YSI<3 
aUPER UIItCElS 

AVG ON-WMn flULi UftLUE TURNOVER 

35 350 3.43857 
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ANOTHER PROBUCTT (Y OR Hi?y r 

EMTEIR THE PKODUCT MfiME? BUDGET WILIQET 

ENTER THE TDTftl COST OF (IDnilS SOLD COR THE KERKiriST (59S 

ENTER THE rtMOUMT ON-HrtND FDR THE FOLLOWING F'ERIDDS 

PERIOD ON -HAND 

1 ? 5 

2 T 10 

3 ? 15 

4 ? 20 

5 T 3S 
i ? 30 

ENTER THE SUERADE VALUE UF EACH ITEH' 10 

INyEMTORV TURNoyER ANALYSIS 
BUDGET UinOET 

SVG ON-HAND AWO \fM.Ur. TURNOVER 

17.5 175 3.97113 

AWOTHER PRODUCT? <t fIR wiv? n 

F'ROCESSSING COMPLETE 
EREl'lK IN 520 

m 



MfiJOR SYMBOL TABLE - tiNALVSIS 



I NAME 

I 

A* 

Al 

A2 

fl3 

C 

I 

N 

N» 

nn 

T 
W 



DESCRIPTION 



TEMP ANSWER VARIABLE 

AVERAGE ON' iMND 

AVERAGE VALUE ON- HAND 

TURNOVeR=COET Of eODDE/flUG IMVEMIDRV 

COST OF GOODS SOLD 

IMBEX ANll ARRAY POIMTtR 

MUMEEW OF MONTHS TU ANALYZE 

PROruCT NAME 

ON-HfiND ARRAY 

TOTAL ON-HANH 

AVERAGE VALUE OF INVENTORY ITEM 

LINE OF ASTERISKS 



FUNCTIONS USED 
I- _. __. 

I NAME 

J 

1 TAB 
I DIM 

J 



194 



BASIC Computer Programs for Business 



Inventory Use Projections 

Program Name: PROJECT 

This program projects inventory usage based upon the least 
squares regression projection method. A.1] data is entered through 
the keyboard in response to program mcssiges. 

Comment: This program can be extended easily to interface with 
either the perpetual or periodic inventory systems. 

Files Affected: None 

5 DLE.AR "JOO 

!0 REM RflVEn AT PROJEHT 

20 ftEH INVENTORY USE PROJECTION PRDBRPiM 

30 REN ****** jH'*****************!^**************************!*** 

4S CLS 

SO PRINT 

t,t> PRINT 

70 PRINT "ENTER THE NUMBER OF MONTHS TO BE fiiNftL¥?FI>" ; 

80 INPUT N 

■?0 PRINT "ENTER THE PRODUCT NAME"; 

100 INPUT N* 

1 lO XlraO 

!20 V1=0 

i30 21=0 

140 X3=0 

ISO PRINT "ENTER THE AMOUNT UGED FOR THE FOLLDWIWR PFBIQDS" 

lAO PRINT 

17i:> PFilNT "PEftlOU ON-HftNI>" 

ISO FOR !C0=1 TO N 

1^0 PftINT XO;TABflO); 

200 INPUT Y<i 

210 yi = Yl-tYO 

■ZSfi Xl = XI+XO 

230 Zl«i7 1+X0«¥0 

■ZAO X2=X2+XOCI' 

250 NEXT XO 

2A0 PRINT "ENTER THE AVERfiSE COST OF THE PRODUCT"; 

270 INPUT V 

2eo REM !t tl**)ili*******4i*I)c*^t**^4I4Iltit t****^***********!!!*) X****** 

2<?0 ftFM CDMPUTriTIONS 

300 RiEM t****************************************************** 

330 A-!X2«Vl-Xl*7U/(WtX2-^lC3> 

320 B=(N«i:i-)()iivil)/(Witr)(i;-XlC2t 

330 VJ^A+BttN+l) 

340 A1=V1/N 

3S0 (\2.='J%M 

3iO PRINT 

370 REM *tl.*1tit-l(!tt%****%****r****'St*t***t'ii%***\%**%%>-1t-ii*lt-lll.it*.#-».%lll1i-ll 

3B0 REM PfiTNT OF RE.Sltl TH 

370 REM itt*****************************!!!*********************** 

400 PRINT Kt 

410 PRINT 

120 PRINT TAB (20); "INVENTORY USE PROJECTION" 

430 PRINT TAB (20) J "LEAST SHUARES REGRESSION" 

440 PRINT TAB (25) 5 N» 

4,^0 PRINT 

4iO PRINT TrtB(tO>;"AVB USED" ; TAB (25> ! "AVG COST "! TAB (4<->> ; "PROJECTED" 

470 PRINT 

4BO PRINT TAB(12>!Al)TAD(2S)|A2;TAB(40)|V9 

490 PRINT 



50O PRINT JC* 

SlO PRINT 

S20 PRINT "t-lNOTHEt* PRDDUCT"? (V Oft hl>''"; 

330 INPUT At 

510 IF ft»="V THEN Vli 

5SO REM tttttt1tt*ttt*^*ttt*t*^f'fT^*iHflttt!it**t».t^t*lt*tlttl>****it** 

f;6Cl REN PROGRAM TERMINATION POINT 

570 REM *i( *««»**** f ****»#«**» i***t »****«*»**»**** »!«**»»***»**»** 

SaO PRINT 

590 PRrNT -PRDCESBINCS COMPLETE" 

600 PRINT 

ilO STOP 



RUN -PROJECT" 

ENTER THE WUMBER OF MONTHS TD BE rtNALYZEr? 4 
ENTER THE PRODUCT NAME' SUPErt D-TrpE WIURET 
ENTER THE rtMDUNT USED FOR TH(-: FULL QUI NB F'ERIODS 

PERIOD ON-HAND 

1 ? 10 

2 7 20 

3 r 30 

4 ? 40 

5 r SO 

4 ? <40 

ENTER THE AVERAGE COST OF THE PftDDUCT? 10 

INVtNTORr USE PR(lJt'i;riDN 

LEAST SQUARES REORESSIOW 

SUPER 0-TVPF WiriBKT 

ftWQ USED AUG UCJST PROJECTEB 

33 350 i9 . 99f} 

flNOTHER PRODUCT? <V OR N)TT Y 

ENTER THE PRODUCT NAME? BUIteET UIDBET 

ENTER THE dNDUNT USED fOR THE FCl.UOWING PERIODS 

PERIOD aN-H(4N[r 

1 7 5 

2 7 10 

3 ? IE 

4 ? 20 

5 ? 25 

6 ? 30 

ENTER THE AVVRfiiSE COBT OF THE PKODIJCT? 10 

INUENTORT USE PROJECTKIN 

LEAST SQUARES KECRESSKIN 

BUDQFT UIDBET 

wa USED wa COST projected 

17.5 175 S^.VV?? 
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ANOTHER PRODJCT? (V OR M)?? N 
PROCEBsrWG COMPLETE 



BREAK IN 610 
OK 



I 

I MAKE 
I 

A 

A« 

Al 

(!t3 

B 

W 

Ht 

V 

Xt 

xo 

XI 
X2 
YO 
VI 
Y9 



SYMBOL TABLE - PROJECT 



DESCRIPTION 



V*LUE OF y INTERCEPT 

TEnr- ANSWER VARIABLE 

rtUERAGE USE 

AVERAGE COST OF MATEFJIi=iLB USED 

SLOPE OF REGRESSION LINE 

NUMBER OF MONTHS TO USE 

F-KODUCT NAME 

AVERAW. UNIT l;OST OF THE RROBUCT 

LINE OF ASTERISKS 

FERIOE NUMBER 

SUM OF xo 

SUM OF XO SQUARED 

PERIOr USE 

SUM OF YO 

PF;OJECTED USE 

SUM OF XO TIMES YO 



FUNCTIONS USED 

I NAME I 

J .^„_„ 1 



I TAB 

I 



Asset Control/Accounting 

Program Name: ASSE'L'S 

This program uses sequential file handling to perform all functions 
required for the recording, updadng, and printing of assets and for citing 
those individuals responslhle for them^ these actions being controlled 
by the operator's responses to program messages. The first time the 
program is executed (or when the deletion of all previous entries is 
desired), the operator must answer "Y" to the question, "ARE YOU 
INITIALIZIMG THE SYSTEM (Y OR N)?" Once the system has been 
initialized, any one of the following six options is available; 

Option 1 allows the printing of the file in its current order. If 
desired, the printing can he in label format. 

Option 2 allows the printing of the file grouped by the first L 
characters of the stock number. 

Option 3 allows the printing of the file grouped by the first L 
characters of the description. 



Inventory Programs (General) 



197 



Option 4 allows the printing of the file grouped by the first 
L characters of the location. 

Option 5 allows Che printing of the file, in order, by the first L 
characters of the responsible individual's name, 

Option 6 allows the operator to update the files. Individual records 
can be inserted (code I), deleted (code D), or changed (code C). The 
in.sert code requests record information from the operator and then 
inserts the new record immediately following the current record po- 
sition. The delete code causes the current record (from the input file) 
not to be written to the new output file. The change code replaces the 
current input record with new information prior to writing the record 
to the file. 

Figure 7-1 illustrates the program's options. 



fitCOfiO 



ASSET 

FILE 



J-J. 




Vj 



r n 

I SIOCK I 

I NUMGER I 

I ORCEH J 



1 



I DESCRIPIION I 

I Otntn J 



i OPTroi 



OPTfON 1 

I ' 1 r 

I LOCATION 

oncER 



L ^-'' 



OPTION 5 

1 

I INDIVIOUIAL f 



T}^i' 






tIE* 

Assn 



QPIICIN B 

7 



Fig. 7-1 Operation of tl\e ass^t corktrol/sccounting program 

Two sequential files are used by this program— one for input, the 
other for output. Requesting option 6 (updating files) creates an output 
file containing all new records. Dependingon the action codes specified, 
the records from the input file will he written to the new file in se- 
quential order, replaced by a new record, or ignored and therefore not 
written to the new file. The format of the files is shown in fig, 7-2. 



Stock number 


liem cl9«:riptLQn 


Locatfori 


Rfliportsibie par'ty 



ISdl 



Fig, 7-2 Record format 



l$(4) 



Comment; Using sequential files in this manner allows files to be 
recovered by stepping back to a previous file and processing only the up- 
dates to it. 
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Su^ested enhancement: You may wish to salt the groups before 
prinfing. A simple sort of array SS<) will provide sorted output. 

H CLEAR 90O 

10 REM SAVE& AT ASSETS 

20 REM ASSET CONTROU PROGRAM 

?0 REM iit**t***-tt**>i***i***'i*t*******^**t**%*********t******** 

40 x*^"**************************************************************'^ 

43 CLS 

70 Din 3*£M) .H»<10! ,T(t! , I»(t) , II <4) 
BO H«U>="CURRENT FILE CONTENTS" 
90 H«£2)="STDC;K NUHBER" 
100 H*(3i="ITEn DESCRIPTION" 

no H*<4>="Lot;flr]ON" 

120 H»(5)=""RESPQMSIBLE PARTY" 

130 H*<i.) = " " 

140 HC(7>="STOCK NBR" 

ISO Ha<8>^"ITEM DESCRIPTION" 

tAO H«(<;)="LOCfiTION" 

170 H*<lCi> = "RESPONSlBLE PARTY" 

130 T<l)-=!0 

190 T(2t=20 

ZOO T(3)=10 

no T(41'=20 

220 PRINT 

230 PBIWT 

240 1=1 

250 PRINT "rtRE YOU INITIflLI 2 INfJ THE SYSTEM (V DR W)"; 

260 INPUT A* 

?70 PRINT "t-HTER FILE NAME OF ASSET FILE"; 

2BO INf'UT F« 

590 IF l_EFT*Cfi«, l>f:>"V THEM 400 

3!00 PRINT "UIARNIUG - FILES BV THE NAME OF "(F*;" WILL BE OVERURITTEN" 

510 PRINT "IS THAT WHAT VDU WAMT TD DO {V OR N>"i 

320 IMPUT A* 

330 IF LfFTStAi, U<V"V' THEN 730 

340 F1*=F« 

350 1=2 

3£>0 GOSUB 740 'FILE OPEN 

370 aOSUB 22 BO 

380 CLOSE 2 

390 1=1 

400 GOSUB 740 'FILE OPE?N 

-iJlO PRINT 

420 PRINT XS 

430 PRINT "THE FOLLOWING OPTIONS ARE AVAILABLE:" 

440 PRINT TAB(5)!"NBR ACTION" 

450 PRINT TAB t5> ; "1 . .PRINTING THE FILE IN ITS PRESENT ORDER" 

460 PRINT TAB<E! ;"2, .PPINTme THE FILE IN ORDER BY STOCK NUMBER" 

470 PRINT TAB(M);"3.,PRINT)Ne THE Hi.F rjvj OR15t-;R BV ITFM O, CHAP>" 

4B0 PRINT TAB<5> ; "4. .PRINTIMB THE FILE IN ORDER BY LOCATION" 

490 PRINT TAEf(5);"S.. PRINTING THE FILE IN ORDER BY RESPONSIBLE PARTY" 

SOO PRINT TAB<5> i " 

SIO PRINT TAB ( 6 > r'6. .UPDATING THE FILE" 

520 PRINT 

530 PRINT "ENTFEff CPTIDN NUMBER"; 

540 n=o 

350 INPUT O 

S/,0 IF Oe:l THEN CDflUB BOO 'PRINT F II E 

!570 IF 0=2 THEN SOSUB 1490 'STOCK NUMBER ORDER 

580 IF 0=3 THEN OtlSUB IjSIO ' IF'En OPllIrR 

590 IF 0~4 THEN GOSUB 1730 'LOCATIF3N ORDER 

600 IF D=5 THEN (50SUB 1650 ' RESPQN&IBIUITY ORDER 

610 IF 0=6 THEN GOSUB 1970 'UPDATE FILE 



h20 IF 0=0 THEN 6B0 
&30 IF D"i> THEN 670 
640 CLOSE 1,2 

iSG amo 370 

A^iO REM «l««t««»*l*1l«««i»*«llli(lt«l»ll««*tl«««t»4lit«»^«»**»t*ltmt)<*««*l«ll 

■670 REM PROGRAM TERM I NAT I DM POINT 

630 REM ^t*it^*liil^*ti*^^litl:*)liili*iit*^k«^*t)ti^ii()i)li*iiliilit)iXiliili«*ili*t.*t*««* 

Af?0 PRINT 

700 PRINT 

710 PREN1 "PROCESSING COMPLETE" 

720 PRINT 

730 STOP 

740 REM t**tt******yi***il**lt****tlt*t*»***t*ttt***tlt*****lt****tt 

750 REM FILE OPEN 

770 IF 1 = 1 THEN QPFM "I^IjF* 
780 IF 1=3 THEN OPEN "D",I,F1» 
770 RETURN 

SOO REM itil*ttiHHmHHt*.iHHmHHtiHiltmHiiHHttitt1t*it*tt**t**it****lf** 

SlO REtl PRINT FiL^ 

ezo REh ****ii*iinttitiii*t»if*it**itif***tii*iH'iii^ii**i*ik*li*t***tifit***tt** 

a40 11 {2)=2 

eSO 1 1(3) -3 

E60 U 54) =4 

£570 PRINT "SHALL I PRINT IN LPlBEL FORMAT (V OR N)"; 

SeO INPUT T* 

690 IF LEFT«<T«, 1)="N" THEN BDSUB 1310 'HEADINE 

•?00 IF EOF<n THEN 9^..0 

910 QOBUB ^70 'INPUT RECORD 

<;20 kl=Kl + l 

930 IF LEFT*<T*, 1)='"N" THEN GOSt rS 1O70 "PRINT LINE 

V40 IF LEFT* (T», 1 )J^"Y" THEN BDSJB 1190 'PRINT LABEL 

9S0 euTO 'Joo 

960 RETURN 

770 REM *****tlHt***Sl.**:*^lt*******tt*tli:*tHt***1t**IH:t**t*******t: 
930 REM INPUT RECIWD 

tOOO INPUT*) , I* (1 > , I*(S> , I«(3) , I«(4) 

1010 SETURN 

1020 REM ««t«tL;|it4i;^tf ««ifj|[i«ifi»4itit|4il(«*t:il<***4l4l«[)ll«JII«»iliJ(««i»««t*«» 

1030 REM WRITE RECORD 

1040 REM imili**)i**it*tt*********ttt*it*t*»*ii:*tt***ttt**t*3i*»:*»iiit 

1050 PRINT#2, I*tl)?", ": I*.(2>! ". ";It(3)s ", ";I*(4) 

1060 RETURN 

1070 REM «**»»-***«**t**»*t**«»sl**«««**t***«t**«t»*i|[«««JH!**« 

108O REM PRINT LINE 

10'^;0 REM IHit*t<lt'Ht*t**t»*t*»>tt***t***ll-'*t*t4****lttt*tit**llt*»lfill 

1100 FOR J1--1 TD * 

1110 TO=TO+T (I) tJJ ) > 

1120 LPRIMT 14(11 (Jl> );T|iiE[(TO) ; 

U30 NEXT Jl 

U40 IF 0=1 THEN LPRINT Klf 

11^0 T0=0 

1160 LPRINT '■ " 

1170 RETURN 
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1180 REh tltt»ttlHt».*****t»*lll.***V****1(**AX*****#M***.MII*XM*****ili 

lliJO KEM PRINT LABEL 

1200 RFIt **«ill*tlt t****t*!l*» if:t* ll*:*i> ».**** It It k***t*-**1l*ti*t*i*****t. 

1210 N=M+J 

1220 IF H>i THKN JCJSO 

1330 PFUNr "flLH3N LABELS NDW"; 

1240 JWPUT At 

12S0 LFRINT " " 

1260 LPRINT I»{U;TfiB<10) ;1«(2) 

1270 LPRINT I* (I) 

12S0 Ll^FilNF I*i4> 

12'?i:i Lf'RINT " " 

ISi/ij RETURN 

1310 REitl ltJ(l]llt««illt»:lllt*ltlll«*I!t4<*'ilt*i|< tt*»H!t:li^*«t*4iif*ll'4('t:l«i*>t**>|t^*It 

13'20 REM PRINT HEADINGS 

1330 REtl tl»ttillltilt»*.*»tHf*itif**tt*1t-i'**i--f*'f*^*t-***if*fflit*tlnll*flli 

1340 PRINT "paSITIOW PAPfIR MOW: 

13:50 INPUT A* 

1360 LPRINT ■■ '■ 

1370 LPRINT J<* 

13S0 LPRINT " " 

ll^^O LPKINT TfiB ( 10) ; "ASSET LISTING - IN ORDER l3Vs "!HS.tO> 

1400 LPRINT " " 

IIIO r-iJR J»l TO 4 

1430 TO=Ta+TfIHJ> > 

1430 LPRINT H*<6+I1 M> >iTf^B<To) ) 

1440 NEXT J 

14R0 T<t=0 

1460 LfRiNT ■' ■■ 

1470 LPrtlNT " ■' 

14(30 RETDRN 

1490 REM it«*t»«*»*Si**»»t«*»»«**«*«i(i«»*«*^»**!*«t*************** 

1300 REM STOCK NUMBER QRDE.R 

ISIO REM t*ltt*titt**lt***illttt**tt»it*t**if***i1i:t*t**t*t^t**^'^tt*'^t 

IS-JO N=l 

1530 II :i)=i 

1S40 II (23=2 

1550 II (3>=~ 

1560 II (4) '4 

1570 L=6 

lEBO StJSUB 2500 'CHECK ARRfiV 

l.WO GCISUE StW 'PRINT GROUPED RESULTS 

lAOO RETURW 

1610 Ran A***4!t'ttiyi^**!(t1ittlfit*iHHH(<lftitiiit>t*lHiiMtl>:iHttlf***:it*lf*:t*t*: 

lAZa REM ITCM Dr'EcniF'TlON DRDPR 

1630 RETI *tilt.t.t****lt***tl*****it*tt*'H-*****t******4**-t*it***tt*t** 

1640 L=6 

1650 M-2 

1660 II a)=2 

1670 IH2)"I 

lASO 3! (3)s»3 

1690 IH4) = 4 

1700 BGSUB 25O0 'CHECK ARRftY 

1710 QOSUB 2*30 'PRINT GROUPED REStil.TS 

1720 RETURN 

1730 REM itl|>*t*t*t*JI>***t*«*t***«***tt«**K*****t«»t**********»*«* 

J 740 REM LOCATION ORDER 

1750 REM lt«*«»***«*«t»*»t****i|(***««*ll*«**»f***«***»-»*>(J|i*» + «**t»* 

1760 L=6 

1770 It<IJ=3 
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1780 II (2>=1 

179ri I((3(=2 

IBOO Il(4}=4 

ISi'J N=3 

ia7f) GnSUB 2SO1:; 'CHECK fiRRAV 

1B30 S05UB IbZO 'PRINT SROLPED fteaULTS 

1S41-J i^ETURN 

L860 fiEM RESPDMSIBILITV ORDER 

1900 I 1 (1 >=4 

IS^IO II (2)=i 

1920 II <3)=3 

1730 n (4) =3 

1940 GOSUB -IBoO ■ CHECK ARRAY 

l^SC GDSUB 2A30 'PRINT GROUPED RESULTS 

J7tO RETURM 

1970 REM t»**t********************«**:*****************i|i*t**** 

19B0 REH lIPDATf FILE 

1790 REM XihSl.ii.\*%ii.*%t%%t*%.t%%n%**M.*\ttiitt.*il.*n**t'f*t*%*%%ilifil** 

;S<iOO J 1-1 

2010 1-2 

2020 PRINT "E.NTEB THE FILE NflUE FOR THE UPDATED FILE"! 

5030 INPUT Fl* 

2Cf40 fSOSUU 7*iJ 'FILE OPEN 

2ClS0 PRINT "ENTER THE RECORD m TO PROCESS"! 

2060 INPUT N) 

2070 FDR J=J1 TO Nl 

2080 IF EDFd) THEM 2t20 

2090 SOSUB V/O ' INPUT RECORD 

21O0 IF .KNl THEM GOSIJB 1O20 -NRITE RFt:ORD 

2110 MEXT J 

2i:;0 J1=M1+1 

2i:jO IF A*="S" THEN ',1270 

2140 IF EOF(l) THEW PRINT "AT EHD-OF-Ftl.E" s 

21S0 PRINT " OELETE. (D> , CHANGE iC) , INSERTil > , OR STOP <S)"! 

71, -SO INPUT ft* 

2170 IF A*<>"S" THEN 2210 

21f)0 Nl==m 

2190 IF NaT EOFd) THEN BDSUB ICi^O 'WRITE RECORD 

2200 C-iCTCI 2070 

2210 IF A*="D" THEN 2050 

22ZO IF «*=■■!■' AMD NOT EUr"<l) THEN GOSUU 102O 'WRIIE ftECDRD 

2230 BOSUB 23B0 'ACiJEPl RECnRl) 

2240 GDSUB 1,020 'WRITE RECORD 

2250 IF EOF<l) THEN 2140 

2260 eOTD 30SO 

2270 RETURN 

22E30 REN %%'il%il.ii1l.%ilt%%%ii.1ititii1i.%%%fll%il.1l.%%*%1i.%%%1l.%1(%%1l.%%%X%il.X%%-K 

1190 REM TNITIAI.I?E RECQRDB 

2300 RtTH iHI**************-********:***********************:!*** 

23t0 PRINT "ENTER RECORDS (JUST f-R[;Si3 RtTUI* TO SfOP)" 

2320 I*<1>="" 

2330 KDSUBi 73a0 'ACCEPT RECORD 

2:540 IF led )=■'■■ THEN 2370 

23ao BDSUB J02O 'WRITE RECORD 

2360 GOTCl 2320 

2370 RETURN 
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2380 REM t***«t1l*«*********»)t»»**»t****»**a»**«»*********** 
2390 REM rtCCFPT Rf-CORD 

2410 PRINT "ENTER THE STOCK NUMBER"! 

2420 INPUT JSdJ 

2430 PRINT "E^NTEfi THF ITEM DESCRIPTION"! 

2440 INPUT I'Jit2) 

24SC1 PRINT "ENTER THF ASSET'S LDtAllON"; 

2460 INPUT 14 t3) 

2470 PRIWT "i-rNTER THE RESPONSIBLE PARTY"; 

24B0 INPUT I*C4) 

2490 HE rU(;W 

250(^ FIRM t$ift.*in^t*i^iil.).*»*il**tl»:t.t**.».t*».».**K»».*»i*iH^H».*»»:il*.».»fl* 

2HIO REM CHElCIt-.. AF^RAr 

2^20 REM iiri|ixi:i|ci«**i^itili4:ili>itt*:)[ilif litt«it»»iliilrT);«»««ilit«;««il;)r»»*««i1i* 

2530 KiO 

2540 IF EOF in THEN 2620 

2SS0 BOSUB 970 ' INPUT RECORD 

2560 l^-=lt:+l 

2570 FDR J=l TO K 

ESao IF S*(J)i=L.EFT*a*iN) ,L) THEN 2610 

2590 NEST J 

2iiOO S»<K)-I EFT* n«(N) ,L> 

2A10 GOTO 2540 

Et.20 RETURN 

2i40 REM PRINT GRDLlPKn RF.SUl.TS 

26^0 R!fM ;^;«ilo»»!t«t):Kiii»i««tXi««t*««*:t»Hti*»ititit*:li»t*ili«**it:i4»)lct'^3l<4: 

2660 GOSUe 1310 'PRINT HEfWINBS 

2670 I-i 

24e0 FOR J=l TO K 

2690 CLOSE 1 

2700 GOSUEf 7S0 'OPEN FILE 

2710 IF eoFtl* THEN 2750 

2720 SDSUB '?70 ' INPUT FILK 

2730 IF S*iJ)=LEFTieu»(N3 ,L> THEN BOSUB 1O70 'PRINT LINE 

2740 GOTO 2710 

2750 S«CJ)=" 

■27ftO N(^)iT .1 

2770 RETURN 



RUN 'i^EEETS' 



ARE YOU INITIfll.I^ING THE SY'iTtM (V QH N)? -T 

^NTER FILE NAME OF ASSET FILE? fiFILE 

UAftWING - FILES BY THE NAME DF BF ILK WILL BE DWERMRITTEN 

IS THAT UHftT YOU WANT TD DO (V OR N)T Y 

ENTER RECORDS (JUST PRESS RETURN TO STOP> 

ENTER THE STOCK NUMBERT 11111 

ENTER THE. ITEM UEGCRIPTIDW ? 60 X 34 DESK 

ENTER THE rtSSET'5 LCCftTION? £424 

ENTER THE RESPONSIBLE FARTYT JOHN SMITH 

effTER THE STACK NUME-CR'? 33332 

CNTER THE ITEM nEECr^IPTION? TABLE 

ENTER THE ASSET'S LOCi^TION? BA34 

EMTER THE RESPONSIBLE PflRTY'' JOE JONES 

ENTER THE STOCK NUMBER? 33333 
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EMTEIt THE ITEM DElSCRIF-TIOM? CDFFEF PQT 

ENTER THE ASSET'S LOCATION?' BlOO 

ENTER THE RESPONSIBLE PARTY? JOHN ShITH 

ENTER THE GTOCK NUMBER? 

ENTER THE ITEM DESCRIPTIDNT 

ENTER THE ASSET'S LOCATION? 

ENreHf THE RESPONSIJJLE PrtRTV? 

THE FOLLOWING OPTIONS ARE SWAILrtBLEl 
NFR ArTHlN 

1,, PRINTING THE FILE IN ITS PRESENT fIRriKK 

2.. PRINTING THE FILE IN ORDER BY STOCK NUMtER 

3.. PRINTING THE Fir.E IN ORI»ER BV .ITEM <6 CHAR) 

4..PRINTINQ THE ITEM IN ORDER BY LDCftTION 

5.. PRINTING THE FILE IN ORBiER BY REHPONSI tfl E PAHTY 

6,. UPDATING THE FILE 

ENTER BFTTON NUhBER' 1 

EMrtLL I PRINT IN LABEL FORMAT <Y (]R N>? N 

POSITION PAPER NOW? 

ASSET LISTING - IN DROEf( BYJ CURRENT FILE CONTENTS 



STOCK NBR ITEM DESCRIPTJOM 



LOCATION RESPONSIBLE PAIiTY 



mil 


60 X 34 DESK 


22?a2 


TABLE 


33333 


COFFEE POT 



Pii24 

eioo 



JOHN SMITH 
JOE JUNES 
JOHN SMITH 



THE FDLLOUINB OPTIONS ARE AVAILABLE i 
NBR ACTION 

l,,PRtNTtNCS THE FILE IN ITS PRESENI ORCER 
2,. PRINTING THE FILE IN CISItER BY STOCK NUMBER 



.PRINTING THE FILE IN ORDER BY ITEM (4 CHAR) 

.PRTNTING THE ITEM IW ORDER BY LOCATION 

■ PRINTING THE FILE IW ORDER BY REEPONH JULf; PARTY 



Ai.LPDATINO THE FILE 
ENTER OPTION NUMBER? 

PROCESSING COMPLETE 



RUN -ASSETS- 



ARE YOU INITIflLIHINB THE SYSTEM (V OR WJ? N 
ENTER FILE NAME OF ASSET FILE? AFILE 

i> t>K!|c!t: 4c !fi K t * « «3^ ^ Kft; ^ *! t ^i ^ f * « 4(*:li * It !t!!F HI * X1C « **iK « It: * itK** *i * * * * ¥)til:*!<l:« * * * 
THE FOLLOWING OPTIONS ARE AyAILftSLE;: 



NBR 



ACTION 



1.. PRINTING THE FILE IN ITS PRESENT ORDER 

2., PRINTING THE FILE IN ORDER tV STOCK NUMBER 

;S.. PRINTING THE FILE IN ORDER BV ITEM ti CHAR) 

4..PRINIlNli THE ITEM IN ORDER BY LOCATION 

S..PftINTINO THE FILE IN ORDER BY REiiPOMSIBLE PARTY 



(S.. UPDATING THE FILE 



204 BASIC Computer Programs for Business 



ENTER OPTION NUMBER? i 

ENfEft THE riLE NAME FOft THE UPSATED FILE? NEUrtFlLE 

entek the RECCIRB + TU fRQCtaS'' i 

DeLeTE<D).CHrtNeE(C)FlNSERHI). <3R STOP <E)f C 
ENTER THE STOCK NUMBER? lllJlfl 
ENTER THE ITEM DESCKIPTION? iO >! 43 ftSh; 
ENTER THE ASSET'S LOCATION' PA24 
ENTER THE RESFONSIBLE PflRTV? JOHN SHITH 
ENTErR THE RECORD 4 TU PRL)i;ESB? E 

ftr f;Nn-OF-HLE HELETE<I)),CHflNGE<C) ,INEERT(I ) f DR ETOP CB)? I 
ENTER THE STOCK NUMBER? lllUIt 
ENTER THE TTEH DESCRIPTION? 4B X 43 BESK 
ENTEfi THE ftSSET'S LOCi^TION? H^.J'I 
ENTER THE RESPONSIBLE P^RTf? JOE JONES 
AT ENC-OF-FILE DELETE^n) .[:HANBE(C) tINSERKI ) , OR STOP (S)? S 



PROCESSING COMPLETE 



BREAK IN 730 



fi-UM 'rtSSETS" 

ARE YOU INITKSLIZING THE SYSTEM (V OR N)? H 
ENTER riLE NAME Of AiJEJKT FILE? NEUftFILE 

THE FOLLOUING OPTIONS ARE flUfllLfleLEf 
N6R ACTION 

».. PRINTING THE FILE IN ITS PRESENT ORDER 

2.. PRINTING THE FILE IN ORDER BV STOCK NilMBER 

3.,RRINTINS THE FILE IN OROER BV HEM i.6 CHAR) 

4..PRINTINU THE ITEM IN OftDER BY LOCATION 

S..PRINTINB IHE FILE IN ORDER SY RESPONSIBLE PftRTY 

6,, UPDATING THE FILE 

EWTER OPTION NUMBER? 1 

SHALL I PRINT IN LABEL FORMAT (V Off M>? N 

POSITION PAPER NOW? 

ASSET LISTING - IN ORCrER BVt CURRENT FILE CONTENTS 

ETDCK NBR ITEM DESCRIPTION LOCAIION RESPONSIBLE PftR) Y 

lllllA 60 X 4FJ SESK 

22222 TABLE 

3333i cDFFee POT 

1111 IB 4a X 48 DESK 

THE FOLLOWING nPTtaN!> ARE AUI^ILADLE; 
NBR flCTIDN 

I..PR1NTIM(3 THE FIIE IN ITS PR£i5ENT DRnFH 

i:- .KRiNTiNiJ IHE f:le in orher by stuck number 

3..FRINTIMG THE FILE IN ORDER BY ITEM (6 CHAR) 

4..Fli:lNTING THE ITEM IN ORDER BY LOCflTION 

5.. PRINTING THE FILE IN ORDER BY r<CSFONSIBLE PARTY 



eA^4 


JOHN SMITH 


1 


Bi24 


JOE JUNES 


2 


EflOO 


.JOHN SMITH 


3 


fib21 


JOE JONES 


4 



.UPDATINO THE FILE 
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ENTER OPTION NUMBER? 4 
PDSiriON Pfll°Eft NOW 



|!lSSET LJSTIWR ■■ IN aRDER B*'t LUCAiJON 



LOCATION STOCK NBR I TEIH DESCfilPTION 



RESPONSIBLE PARTY 



Bi24 


lllllA 


*0 X 48 DESK 


JOHN SMITH 


BA?4 


22322 


TPtBtW 


JOE JONES 


B624 


tllllS 


46 X 48 DESK 


JOE JONES 


SUM) 


33333 


COFFEE POT 


JOHN SMITH 



the: FOLLOUIMG options are «WILftEL£J 
NBR ACTION 

1,. PRINTING THE FILE IN JTS PRESENT ORDER 

2..PRINTIN0 THE FILE IN ORPER BY STOCK NUNPER 

3., PRINTING THE FILE IW ORDER BY ITEM (4 CHflR> 

4.. PRINTING THE ITEM IN ORDER BY LOCATION 

5.. PRINTING THE FILE IN ORDER BY RESPONSIBLE PARTY 
i.. UPDATING THE FILE 

ENTER OPTION NUMBER? 5 
POSITION PAPER NOW? 

ASSET LISTING - IN ORDER BY: RESPONSIBLE PAftTY 
REEPONSIBLE PARTY STOCK NBR ITEM BESCRIpriON LOCATION 



JOHN SMITH 


llUll^ 


60 X 4S EESK 


B6-ZA 


JOHN SMITH 


33333 


COFFKE POT 


BlOO 


JOE JONES 


22222 


TftBLG 


B424 


JOE JONES 


lilllB 


4B X 48 DESK 


D624 



THE FOLLOWING OPTIONS ARE AVAILABLE; 
NBR ACTION 

1,, POINTING THE FILE IN ITS PRESENT ORDER 

2,.Pf!rNTINa THE FILE IN ORDER BY STOCK NUMBER 

3,. PRINTING THE FILE IN ORDER BY ITEM (6 CHl^R> 

t^iPRINTING THE ITEM IN ORDER BY LOCATION 

5,, PRINTING THE FILE IN OFtfiEft BY RESPONSIBLE PARTY 



ii. UPDATING THE FILE 
ENTER OPTION NUMEERY 



PRtJCESSINO COMPLETE 



BREAK IN 730 
OK 
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MAJOR 


SYMBOL TABLE - ftSSETS 


[ I 
[ I 
[ I 
[ I 


FUNCTIONS USED 


NAME 


.. DESCRIPTION 


NAME I 




A* 


.. INPUT ANSUER VARII^BLE 


OPEN I 




F* 


.. INPUT FILE NAME 


[ I 


CLOSE I 




Fl* 


. , OUTPUT FILE MrtME 


[ I 


ODSUE I 




H»0 


,, HEftDING ARRA/ 


[ I 


RETURN r 




I 


,, flLE NUMBER 


[ I 


HIN I 




I»(> 


r. DATA FIELDS 


[ I 


TAD I 




IK) 


,, ORDER OF PRIMTING ARRAY J 


I 


INPUT* I 




J 


w INDEX AUD ARRAY POINTER 


I 


PRINT* I 




Jl 


, , INDEX AN& rtRRAV POINTER 


I 


EUF(1> I 




K 


. . COUNTER FOR GROUP VALUE ARRAY ] 




LEFT* I 




Kl 


. . RECORD PF^INT COUNTER J 
. . LENGTH or FI£Lli TO COMPARE : 


I- 










M 


.. HAXIMUn NUMBER OF SftOUPS ] 








HI 


. . MAXIMUM NUMBfK OF DATA RECORDS ] 








H 


, . OROUPINO FIELD J 








Nl 


.> RECORD POrNTER FOR UPDATING ] 











. . OPTION NUMBER 1 








S«( ) 


, , OROUP VALUE ARRAY 








T« 


., PRINT FORMAT 'Y'=L<1BELE ] 








TO 


., TAt SIZES FOR DATA FILES 3 








TO 


,. CURRENT TAB PQISTION ] 






I- 


X» 


. . LINE DF ASTERISKS ] 







Material Locator 

Program Name: WARE-INV 

This program uses sequential file handling to perform all required 
functions for the recording, updating, and printing of the loeation 
(warehouse or other) of goods or materials, Its actions being controlled 
by the operator's responses to program messages. The first time the pro- 
gram is executed <or when deletion of all previous entries is desired), the 
operator must answer "Y" to the question, "ARE YOU IMITIALIZING 
THE SYSTEM (V OK. N)?" Once the system has been initialized, any 
one of the following five options is available: 

Option 1 allows the printing of the file in its current order. If 
desired, the printing can he in label format. 

Option 2 allows the printing of the file grouped by the first L po- 
sitions of the stock number. 

Option i allows the printing of the file grouped by the first L 
position.'; of the item description. 

Option 4 allows the printing of the file grouped by the first L po- 
sitions of the warehouse location. 
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option 5 allows the operntorto update the files. Individual records 
tan be ins«rt«d (code I), deleted (code D), or changed (code C). The in- 
sert code requests record information from chc operator and then 
inserts the new record immediateiy following the current record po- 
sition. The delete code causes the current record (from the input file) 
not to be written to the new output file. The change code replaces the 
current input record with the new information prior to writing the 
record to the file. 

Figure 7-i illustrates the program's options. 



/ \ 

I REOOTO I 

\ INfORWdTMN j 



'11 



1 T 



I FILE I 



WME-mv 



I'opfiONl I OPTION i r 

I 1 I 1 I 



I IN- FILE 
I (IRCeR 



STOCK 
I NLIMBtR I 
' OFfMR _) 



OPTION 3 

~1 

ITEM I 

DESCRIPTION I 

OJJflEfi 



I OPTION 4 
1 

WiBE HOUSE ] 
ORDEH 



l^-^l--"- ^ -'" 



i OPTION 5 
^ 

NEW ' 

WATEBWL I 

FILE \ 

A 



Fig. 7-3 OF>er3ti^n of themat£fial locator prayfam 



Two sequential files are used by this program-one for input, the 
other for output. Requesting option 5 (updating files) creates an output 
file containir^ all new records. Depending on the action codes specified 
by the operator, the records from the input file will be written to the 
new file in sequential order, replaced by a new record, or ignored and 
therefore not written to the new file. The format of the files is shown 
in Fig. 7-4, 



St£>ck number 


(tern description 


Wafshouse 


IWiiahouse SMtlon/bln 



l$(11 



l$[2l IS[3) 

Fig. 7-4 Record format 



ISM) 



Comment; Using sequential files in this manner allows files to be 
recovered by stepping back to a previous file and processing only the up- 
dates to it. 

Suggested enhancement; You may wish to sort the groups before 
printing. A simple sort of array S$() will provide sorted output. 
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S CLEOR'fOO 

10 REM SAVED AT UAREINV 

^0 REM NflftEHOUSE rnyENTORY LOCATION PROGRAM 

30 REM t»tJHm*tmitiH:*tt'm-i't**f*'lmftili.itiii:tii)iMftt^i*if*t*tt*ii'ttttiii 

43 CLS 

so l"t*30 

4pO ni=]oooo 

70 DIM SS<ri) ,Ht(a) ,T(4) , I* t4> , II (4> 

so H*<1)="CURRENT FILE CONTENTS" 

90 H»(2)="STDCK NUMBER" 

lOO H* (3)="I TFM DFSCRIPTinM" 

)10 Ht (4>a"WflRFHDUSE" 

120 H»(5>~"STr]CK NBR" 

130 H*(6> = "ITE-:M DliSfJRIPTIGH" 

140 H*(7>-"WABEH0U3e" 

ISO Ht(H) ="secTH'JN" 

160 T(1)=)0 

170 T<2>=30 

ISO T(3)=t0 

li?0 Ti4)=10 

200 PRfMT 

210 PRINT 

320 I"! 

230 PRINT "PlRE VOll TNITIfll.1 7-ING THE SYSTEM (Y OR Nj " ; 

240 INPUT A* 

Z50 PRINT -ENTHf) FILE NAMt: OF WAREHOUSE FILE"; 

2*0 INPUT F* 

270 IF LEFr*<Ai. 1K>"V' THtN 380 

2R0 PRIMT "WARNIMP - FILES B¥ THE NAME OF "sF*!" WILL BS OVERWRITTEN" 

290 PRINT "Efi ThHT WHAT YOU WANT TD DO (Y OR N>"! 

JOO INPJT At 

310 IF LEFT»<ft«, l)f ^'V THKN «,90 

320 F1»=F* 

330 1=2 

340 GnSUB 70O 'FILE OPEht 

350 GDSUB 2120 

3iO CLDSF 2 

370 1:^1 

3SO SOeUB 70O -FILE OPEN 

390 PRINT 

400 PRINT >s 

4IO PRINT "THE FGLLOWINR tlFTIDNS ARE AVAILAPLE:" 

430 PRINT TAEH^>i"MPR ACTION" 

430 PRINT TftB(S) t"l. .PRINTINU THR; FILE IN ITS PRESENT ORDKR" 

^40 PR1N> TAB<S>f "2.. PRINTING THE FILE IN ORDER BY STOCK NUMBER" 

4SP PRINT TAI3(5i s"3. .PRXNTINQ THE FILE IN ORDER BV ITKM (6 CHAR> " 

460 PRINT TAB(S>)"4. -PRINTINiS THfi ITEM IN ORDER BY WAREHOUSE" 

471J PRINT IflB(S) !" ' 

4ao PRINT TAB (5); "..UPDATING THE FILE" 

4<70 PRINT 

5O0 PRINT "ENTER OPTION NUMBER"; 

510 0-0 

520 INPUT n 

S30 IF 0=1 THEN GGSUB 740 'PRINT FILE 

540 IF 0=2 THEN GOSUE 14SO 'STOCK NIJMBeR ORDER 

550 IF 0=3 THEN GOSUE 1S70 'ITEM ORDER 

5tO IF 0=4 THEN GOSUB 1690 'WAREHOUSE QRDE^R 

570 IF 0==5 THEN GOSUB ISIO 'UPDATE FILE 

500 IF 0=0 THEN 440 

S9(. IF a=S THEN 6?0 

AOO CLOSE 1 , 2 

£>10 GOTO 370 

670 REM *arM>iiHK*itttiiiiil.itiHHfttifif»:t*ll:tt*t$t.tlt.tKlHHtii:ttHf*t***t»:titt 

630 REM PROURflM TERMINATION POIMT 

640 REM t*iHttit*ltxtttttHt*M*ll***lf»**tfMt*lt*it*t»*tll*in(t*>HI**iHHfflHi: 

*30 PRINT 

660 PRINT 

670 PRINT "PROCESSING COMPLETE" 

ABO PRINT 

i^O STOP 



700 REM t^4 t1imlt*:«<<4it*ii|<J|it^i<^i{i*i|i*t t*4^**:l<t** t l<*>t^iit*J|<t*>|[^**i*'t4' 

710 REM FILE OPEN 

720 REM *yit**yt***tt**tt***t»*1t******t***t**it***!t*t******'*t**** 

73C> IF 1 = 1 THEN OPEN "r",l,F* 

740 IF I==2 THEN OPEN "a",I,Fl* 

75C RETURN 

7diO REM *xt**tt*****t*t***ii*****it.**.tt******>it.f.**ii.t**tH*iiHt*it 

770 REM RftltJT FlLS 

7eO REM t**t**t********.**t**it*********r**«********-**t*t*ll***t* 

TiO II (1)=1 

BOO II (2>=2 

aiO II t3)=3 

820 11(4) =4 

B~0 PRINT "SHALL I PRINT IN LABEL FDRMOT (Y DH N)"; 

a4C> INPUT T* 

850 IF LEFT«<T«,1 >="N" THEN GOSUB 1270 'HEADING 

B40 IF EOFfU THRN <?20 

670 SOSU6 i?;0 'INPUT RECORD 

aeo Ki-Ki+1 

S90 IF LEFTt<T*,l>="N" THEN G05UP XOZO 'PRINT LINE 

900 IF LEFT»(irt.l>="V THEN BOSUS llSO 'PRINT LABEL 

910 GOTO 660 

920 RETURM 

?30 REM %liilt*».**t**1i***-lt*».**itt***i*1l.*t-l!.it^%il.ltlt*t)l.il*t**.1f%ll.tl*yi.*** 

9^<> REM INPUT RECORD 

9S0 REM *yilt**1.lttt*^%tll.t*nil.tlf».t*.%3!.t*.**il*1t*».t-llifil.t.it.il.X-Hm.lli.lil.t.lHHI. 

"JliO INPLIT*! , I« fU , I«(?l , I*(;j) , T« 14) 

■JTO RETURN 

960 REM iHt%t.t*%*%tt1r^*%**********i**-%tlft*%*1H*lCi.tt*iHfti*Atiilt*t 

■590 REM WRITF RECORHJ 

1000 REM iri(!»l»«*«*i(1[» *«*»*♦***»*«*****+**»**** t:*************** 

lOlO PRINTS2, I*0 J ; ". "! I« (2) ; ", " ; I*<3) ! ", ") It t4) 

1021-j RETURN 

10^0 REM t***il.tt*1l**-*%tt-».%**%-IHI.*%tt.**t*K*tHt%lt %*■*■» %**%***%**** 

1040 REM PRINT l.:ne 

3050 REM ****t=l't*> + ************** + *** + *t***'t***=*****»*'li*»**** 

1060 FQFi -31 = 1 TD 4 

1070 TO=TO+T ri J (Jl) ) 

1030 LPRINT ltd! <J11 ) ;Tf1B(T0) : 

I090 NEKT .n 

HOC IF D=l THEN LPRINT Kl; 

1110 TO-O 

11 20 LPRINT ■■ ■■ 

1130 RETURN 

1140 REM ******1(«ilit*****t***«**)li******««*«**t«**«****t«***««« 

1150 REM PRINT LftBEL 

lldsO REM )i!<it««ittNiJlitt;(iiKltl(»Jlilitti«**ti|i«x:tih!|[!i*^!lit4[*!l(«^itilii|[t«!Kil:»!li|[«^ 

1170 N=N+1 

liaO IF NM THITN 1210 

1190 PRINT "ftLI(3M LABELS NOW"; 

12O0 INPUT A* 

1210 LPRINT '■ " 

1220 LPRINT I4<l)!TA&aO>!l*(2> 

ISJO LPRINT I* (3) 

1240 LPRINT I* t4> 

1250 LPRINT " " 

1260 RETURN 
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1270 F!EM *t*)f1it!^*t.*iH:***i/f(***^*iHt*)liftl!IH-Xtlltll.ttt*ttiHi: ***)!: **ii:t 

1280 REM PRIMT HEftniWGS 

1Z90 REM JI(«lt«*«KljllltKl3l»1r»*«t»*«l>»^««t«i;t*t«:*««^:f*lt«tll*)l:lll<tl^t*»!ll 

13O0 PRIWT "PaSITIDM RARER WQU" ! 

1310 INPUT fl* 

I320 LPRINT ■■ " 

1130 LPRINT K* 

1340 LPRINT " " 

1350 LPRIMT TfiB<10) :"ftSSET LISTING - IN ORDER »V: "iH«<0> 

1360 LPRINT " " 

1370 FOR 0=t TO 4 

1380 TO-TO+TtI 1 (J) > 

1370 LPRINT H*l4+IHJ>>!TflEaO>s 

14O0 NEitT J 

1410 T0=0 

1420 LPRINT '• ■■ 

1430 LPRINT ■■ '■ 

1440 RETURN 

1450 REM *^n^t^»*t*iHt**t*t*t**tt*^x*■**^**:(t**tt******y^***ttti^■$*■* 

14AO REM STDCk" NJMBER ORDER 

1470 REM *%**t**'mt*tl-**t*t**t*'Ht*1.t»*tt**ilt**1^t*t*t**1^t*il*1i* 

14no N=l 

1490 Il(l)=l 

ISOO Il<2)-2 

1510 II C3i=3 

1520 I 1(4) =4 

1530 L=4. 

lS4i:> GQSUB 2340 'CHECK ARRAY 

1550 GOSUB 2470 'PRINT GROUPED RESULTS 

1560 RETURN 

1S70 REM it***1i*t*****it*»*ili»»***»**t«t«**t******!««**«t*!t**«t»i|i* 

ISaO REM ITEM DESCRIF'TIDM ORDER 

1S<?0 REM tttttt*llf**tt»t*tfll-JltM»tttt*tt**tttlHftit*if**t.t**t*1ll*ll* 

1600 L=t 

1610 N=2 

1620 Il(l>=2 

1630 U (2)»1 

1640 II (3) =3 

1650 I 1 t4)=4 

16A0 GOSUB 2340 'CHECK ARRflV 

1670 GOSUB 2470 'PRINT GROUPED RESULTS 

1600 RETURN 

1690 REM ****!HitiHHrt***iH^*t!H*.t*ltt-t***i**t*ttt»tt*t**i**it$**t 

170O REM W(^REHOUSE LDCflTIDN ORDER 

1710 REM til*iitll.^t*fl**iHl*t'H-****'t*tttlHH>tt*t4***Jt*t*lt»t*^tt1l*** 

1720 L=6 

1730 Il(l>=3 

1740 I 1 (2)=4 

1750 n (3)=1 

1760 1 1 (4) =2 

1770 N"=3 

17eo GOSUB 2340 'CHECK ARRfiV 

17'*0 (30SUB 2'*70 'PRIMT GROUPED RESULTS 

leOO RETURN 

IS 10 REM *t1Hi.*tt:t.t**)l.^t»mtt*yi***tt.)HHIIIti***Mt**»tllt*.****.>illl*.lliii:til! 

1820 REM UPDATE FILE 

1830 REM *t»*i(i»**»*»**t«H(*»-*!(f »«4l'*»»**«*»***»i«»***«»*««*J(tirKiJf 

1840 Jl=i 

leso 1-2 
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1560 PRINT "ENTER THE FILE NftME FOR THE UPDATED FILE"; 
1970 INPUT Fl« 

laBo onsuB 700 'file open 

ISM PRINT "ENTER THE REICORD # TG PROCESS"; 
i-JOO INPUT Nl 

1710 FOR J=Jt TO Nl 

1920 IF EDF(tJ THEN WtO 

1*30 OOSUB '?3tl 'WRITE RECORD 

I-JIO IF J<Nl THEN BDSUe 980 

l-JSO NEXT J 

l'?60 Jl=Nltl 

1970 IF A«="S" THEN 2U0 

19B0 IF EOFil) THEN PRINT "AT ENB~OF-FILE" ! 

i'J'JO PRINT " DELETE(D> jCHfiNDEtn) , IWSERT(I) , DR STOP I'S)"; 

2Ou0 INPUT A* 

2010 IF A«<>"S" THEN 205t' 

2020 M1-=M1 

203O IF NOT FOFll) THEN GOSUB "SaO 'WRITE RECORLi 

2O40 aOTO 1910 

2050 IF ft*="D" THEN 1990 

2060 IF fi«i"l" AND NOT EGF<1) THEN GOSUB 9gO 'WRITE RECORD 

2070 SOSUB 2220 'ACCEPT RECORD 

20e0 GOSL-E 9S0 'WRITE RECORD 

2090 IF EOF ( 1 > THEN 19S0 

2100 GOTD 1390 

2 no FrETURN 

?l/?0 REN ltt«^](ltX4t«c:tJtltt«ll[t«|ttt|ii«t«]f[|f***'ll***it**f ^^^liHiaiiiliilt** 

2130 REM INtTIftLIIE RECORDS 

2140 REM *t*it**3tt*il*tt**ls***t*t**tt******it***ll*it*tt***t****1i 

2150 PRINT "ENTER RECORDS (JUST PRESS RETURN TO STOP)" 

21tO I«(l>="" 

2170 SOSLB 2220 'ACCEPT RECORD 

2180 IF I«(l)="" THEN 2210 

2190 SDSUB 9S0 'WRITE RECORD 

220(;> GOTD '31 Mi 

2210 RETURN 

2220 REM ******>l$it*'$<^*1tt*n*t*'t*)l'Htt*-******ili*'t*^*ttl'*^*****-*i 

233<;> REM ACCE^PT RECORD 

2240 REM ♦♦♦*t****t**1i»* + tt****t*t*t*****t***t'*t************* 

2250 PRINT "ENTER THE STOCH] NUMBER"! 

2260 INPUT I*C1> 

2270 PRINT "ENTER THE ITEM DESCRIPTION"; 

22ao INPUT I*(2) 

2290 PRINT "ENTER THE WAREHOUSE LOCATION"; 

23O0 INPUT I*(3i 

2310 PRINT "ENTER THE SECTION OF THF UAREHOtJSF" ; 

2320 INPUT I*t4) 

2330 RETURN 

2340 REM **tHl.t*t*tttit*'Httilt*l*t**tf>t*t*ttMt1f»*ttt.t*tii.)i.*it»*t 

2350 REM CHECK ftRRAY 

23iO REM **»lt*t»lll****««»**t««*t«](ltt«**itit***»*«*****t*«****** 

2370 K=0 

2390 IF EOF(l> THEN 2460 

2390 GOBUB 930 ' INPUT RECORD 

24O0 K^K+l 

2410 FDR J=l TO K 

2420 IF S»(J>=LFFT«iI»<N>,L) THEN 2450 

2430 NE)(T J 

2440 St<^')=I.EFT» (I« (N) ,L) 

24SO BDTO Z3eO 

2460 RETURN 
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Z470 REM ***tif*5t***^i****4i*****************tt*****t*»t + »t+*»* 

24S0 REM PRINT GROUPED RESMl TS 

2490 REM ***t1i***t.+ *******#*»»!t*T*lt****»«*t*«ll*«!|lt*)»****l(ti(* 

2500 BDSUB V2.7Q 'PRINT HEADINGS 

3510 I-l 

2!320 FOR J=l TO K 

2330 CLOSE 1 

2540 SDSUB 710 "OPEN FILE 

2550 !F EOF CD THEN 2590 

2S60 QOSUB <?30 'INPUT FILE 

2570 IF S*(J>=LFFT*<Ia(NJ ,L) THEN SOSUB 1O30 -PRINT (.[ME 

2SB0 GOTO vJSSii 

2S90 ss.<.n = " 

26 OO NL-.XT J 
2A10 RETURW 



RUM ■UftRE-INU 

ARE VOU INJTIftLIZINC THE SYSTEM (V OR N>7 Y 

ENTEft FILE NftME OF W(*KEHUIJ8E FILET WFILE 

WARNING - FILES ftV THE N^ME OF WfTLE MTLL BF OWERWRrTTEN 

IS THAT WHflT rOU WANT TO DO <V OR N>? Y 

ENTEK RECORDS <JU3T PRESS RETURN TO STaP) 

ENTER THE STOCK NUMBER? 11111 

ENTER THE ITEM DESCRIPTION-? SUPER DELUXE UTDHET 

ENTER THE WAREHOUSE LOIiftTIDN? fl 

ENTER THE SECTION OF THE WAREHOUSE? 1234 

ENTER THE STOCK NUMBER? 32222 

ENTER THE ITEM DESCRIRTIDNY MIDDLE CLASS WISBET 

ENTER THE WAREHOUSE I.OCrtTION'' B 

ENTER THE SECTION OF THE «rtREHOUS£Y 367B 

ENTER rHE STOCK NUMDEFi'? 33333 

ENTER THE ITEM DESCRIPTION'? BUDOET WIDGET 

EMTER THE UrtREHQUSE LOCATION? ft 

ENTER THE SECTION OF THE UrtREHDUKEr «iit3 

ENTER THE STOCK NLTflBER? 

EMTER THE ITEM DESCRIPTIOW 

ENTER THE WAREHOUSE LOCATION? 

ENTER THE SECTION OF THE Ui^REHDUSE? 

THE FOLLOUINB OPFIONU ftRE AyftlLABLE: 
UlsR ACTION 

1,.FRIHTIMG THE FILE IN ITS PRESENT ORDEK 
;!..PRINriNR THE FILE IN ORDER BY STOCK NUMBER 
3.. PRINTING THE FILE IN ORDER BY ITEM i6 CHAR) 
■1.. PRINTING THE ITEM IN ORDER BY UftREHOUaE 

5,. UPDATING THE FILE 

ENTER OPTION MUMPER? I 

SHALL I PKINT IN l.ftSKl FOKMfll (Y OR N>? H 

POSITION PAPER NOW? 

tXJt Jc * « * * * lr^:4t ^ * * )K :4(:fc:t * K14CJK ^ * Hit :i( * * )4( ]4c;4: K # K:4c t * ^!4e4c * * 4 ]|c:t:t « t :t * * lit )lt J4(:4e>c ^ t K # 

ASSET LISTING - IN ORDER BY: CURHENT' FILE CONTENTS 

STOCK NBR ITEM DESCRIPTION WAREHOUSE SECTIOH 

11111 SUPER DELUXE WIDGET 
J222a MIDDLE UI.ASS WIDOET 
33333 BUDUET WIDGET 



A 


i2J4 


1 


B 


5i7D 


2 


A 


66i,i 


S 
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THE FOLLOUIWD OPIIOND rtRE AWILfttfLF:: 
MBR (ten ON 

1.. PRINTING THE FILE IN ITS PRESENT ORnER 

2..PRIMTI^0 THE FILF IN ORElKfC BY STOCK NUMWR 

J, .PRINTING THE FILE IN DROrR BY ITEM tA CHrtR) 

'I..PMNflNC3 THE IT£:M IN ORDER BV WAREHOUSE 

5, ,tJPD(!|TINB THE FILE 

ENTEJl OPTION NUM&ER? 2 
PQSITinM PAPER NDW? 



♦ t**********************************************'* ************* 
JlSSET LISTINC? - IN ORDER Br J STOCK NIJMB£K 



STOCK NBR ITEM DEBCRIFTION 



WAREHOUSE SECTION 



mil 


SUPER DELU:<E UIDGET 


A 


12^1 


22222 


WrODLE CLASS UIDGET 


S 


5678 


33333 


BUDOET UIUGET 


ft 


4643 



^t]tf!tc:4k^^«)|(Hc;k^^*!K1c:*^)ltt]4(:4t#¥#]ic^«*t^Jt£***]4(4!*3*^:1E««!«34c>c««!««]««3^34e^^«#**liilc 



THE FOLLOUIMG Ol'TION 
NtR ACTION 

1. .PRINTING THE FILE 
a..PRINTINC THE FILE 



ARE AVAILABLE t 



:m 



ITS PRESENT ORDER 

Sy ETOCK NUMBER 



IH ORDER 

;i..rRINTINC THE FILE IH ORDER BY ITEM <6 CHftH ) 
4..PRINTINB THE ITEM IN DRDER BY WAREHOUSE 



5..UP[)flTING THE FILE 



ENTER OPTION NIJMSER'i* <* 
POSITION PAPER NOU? 



^t***|;^)t¥it«*«]|r:(ctJf«;|:tt*********1i************!*****i|:*^t*1lit*XC^***¥ 

ASSET LISTING - IN ORDER BYI WAREHOUSE 
WflfiEHOUSE SECTION STOCK NBR ITEM PESCRIMION 



A 


las^) 


11111 


SUfEK DELUXE WIPGET 


A 


6663 


33333 


BUDGKr UIDGET 


B 


5678 


22222 


MIDDLE CLASS WIDGET 



THE FOLLOUINQ OPTIONS ARE flVAILABLE: 
NER ACT J ON 

1,, PRINT IND THE FILE IW ITS PNESENT CIRIiEfi 

2.. PRINTING THE FILE IN ORBER BY STOCK NUMBER 

:i,. PRINTING THE FILE IN ORDER BY ITFM (6 CHAR) 

4..FRJNTING THE ITEM IN OfSOER BY WAREHOUSE 



5.. UPDATING THE FILE 
ENTER OPTION MUMBERr 



PROCESSING COMPLETE 



SREAK IN ifO 
OK 
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ftUN 'WARE-INy 



ARE YOU INITIALIZING THE SYSTEM (Y DR W)l- W 
ENTER FILE NAME OF WAREHOUSE FILET WFILE 

THE FOLLOWING OPTIONS ARE flUf^ILABLE: 
NBR ACTION 

1,, PRINTING THE, FRE IW ITS PRESENT ORPER 
S., PRINTING rue FILE IM I'lpqiER FfV -stock NUMBER 
3.. PRINTING THE FILE IH URDER BY ITEM (i CHAR) 
4,, PRINTING THE ITEM IW ORDER BY WAREHOUSE 



5.,UPPrtTrNG THE FILE 

ENTER OPTION NUMBER? 5 

ENTER THE FILE NA»E FOR THE UPDATED FILET NEU-FILE 

fTNTER THE RECOfttP ♦ TO fffOCESS? 2 

i:JELETE(B).CHi4N0E(C>i.INSERT(n. OR STOP CS)T I 
ENTER THE STOCK NUMBER? 2232J2A 

ENTER THE ITEM DEGCRIFTIQN? HEU MODEL OOLD WIQ0ET 
ENTER THE WAREHOUSE LOCATION? C 
ENTER THE SECTION OF THE UAREHDUSe? (i/^ 
ENTER THE RECORD t TO PROCESS? 5A 
ftT ENB-OF-FILE DELETE*!!) rCHANGE< E ). INSERT ( I ) f OR STOP 



J'ROCESSINQ COMPLETE 



BREAK IN 690 
ON 



RUN "UARE-INy 



ARE YOU INITIALIZING THE SYSTEM <Y OR N>? N 
^NTER FILE NAME OF WAREHOUSE FILE? NEU-FILE 

THE FOLLOUJNG OPTIONS ARE AVAILABLE: 
NBR ACTION 

1., PRINTING THE FILE IN ITS PRESENT ORBEJ! 
2.. PRINTING THE FILE IN ORDER BY STOCh^ NUMBER 
3.. PRINTING THE FILE IN DRBER FY ITEM <* CHflR> 
l.ifRlNTINQ THE ITEM IN ORDER SY WAREHOUSE 

5..UPBATING THE FILE 

ENTER OPTION HUMBERT 1 

SHALL I PRINT IN LABEL FORMAT (Y OR H>7 Y 

ALIGN LABELS mWY 



Ulll 

A 

1?.S4 



SUPER DELUXE WIDGET 



32222 

B 

E67B 



MIDDLE CLrtSS WIDGET 
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C 
674 



NEW HQHEL GOLD UIDUET 



33333 
6663 



BUC>GET UIDGET 



THE FOLLOOINQ OPTIONS AKE AWlLftBLE: 
NBR ilCTIQN 

1..PRINTTNG rut FIl.K IN ITS PRESENT OfcmiK 

2i. PRINTING THE FILE IM ORDER Br S I DCK NUMBER 

3i. PRINTING THE FILE IM ORPEft tY ITEM (i CHAJi-) 



.PRINTING THE ITEM IH ORBEK EIT MAREHOUHE 



,UF!>HTING THE FILE 



ENTER DPTION NUMBER? 



PFIODESSING COMPLETE 



BREAK I« 


6?« 








OK 














MflJDR SYMBOL TftBl.E - WflRE-INU 




FUNCTIONS 


USEE 


NAME 


. . DESCftlF'TIDN 


NAME 






At 


. INPUT ANSWER UftRZABLE 


OPEN 






F» 


. INPUT FILE NAME 




CLOSE 






FU 


, OUTPUT FILE NAME 




HOSUB 






H*0 


, HEABING flRtfAY 




RETURN 






I 


. FILE MUMPER 




DIM 






I«() 


. DfiTA FIELIIB 




TAB 






IIO 


. ORDER OF fMWIIWO ARRAV 




INPUT* 






J 


. INDEX i!|Nl) ARRAY POINTER 




PRINT* 






Jl 


. INClEX AND ARRAY POINTER ] 




EOF ( 1 ) 






K 


, COUNTER FOR GROUP UflLlJE ARRAY 




LEFT* 






Kl 


. RECORIl PRINT CDLTMTER 














L 


. LENGTH DF FIELB TO COMPARE ] 










M 


. MAXIMUM NOMBER OF liRGIJPS 










Ml 


. MAXIMUM NUMHEft (IF DATA RECORDS 










N 


. GROUPING FIELD ] 










Nl 


. RECOrVft POINTER FOR UPriATINC ] 













. OPTION NUMBER ] 










S«( > 


. GROUP WALUE ARRAY ] 










T* 


. PRINT FORMAT 'Y'sLABELS 










TO 


. TAB SIZKS FDR BATA FILES 










TO 


. CURRENT TAB POISTION ] 










Xi 


. LINE OF ASTERISKS ] 
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Job Costing 

Program Name: JOECOST 

This program accepts overhead, fixed, and variable costs from the 
terminal to compute component and overall costs for each quantity of 
production scheduled. These figures can then be used to assist in prod- 
uct pricing. All necessary data should be gathered in advance; it is 
entered at the terminal in response to program prompting. 

Files Affected: None 

5 CLEAR 900 

10 REM SAVED AT JOBCSST 

20 REM COKPUTES COST RF .IDB IWCLUOING DVERHEftD, FIXED, AND VARIABLE COSTS 

30 REM JUt+JH + t*********************************!***!!!****)*:** 

35 CLS 

1-0 M=Z5 

50 1-1 

60 J-1 

70 DIh F(M> ,F*(M) ,V<M) ,V*(M) 

eo ».t''":t.%*if'iiii.t*i.'ii.t.ii iiit-iti.it i.1i%>.i^iiifi.i^t if tilt if i^ittt II 1()t%ilt('ttii.it II )t-iiiitKinm*t*^itt" 

90 REM ENTER IMIT I ALI ZATIDN INFOftMrtllDM 

100 REN ttt*if**itit*'>1iit'it'ii***tt.ift**t**i1tiiiit.1i%Htx1ti(*ttit*H%*ft%ifittmt 

HO PRtMT "EWTEft THE-: AMOUNT DF OySRHEflD DDLLfiRS TO flPPLV; 

120 IWPUT O 

130 PRINT "ENTER FIXED COSTS THAT APPLV AND THE TYPE OF COST" 

140 PRINT "E>:AMPLE 1000, BET UP CHARGES" 

1 50 1 NPUT F ( n , F« ( I ) 

160 IF FCI>s=0 THEN 190 

170 1=1+1 

ISO GOTO ISO 

190 PRINT "EMTER VARIfleUE COSTS THAT APPLY AND THE TvPE OF COST- 

200 PRINT "EXAMPLE lO.MftTERlALS" 

210 INPUT VfJl,V*(.J) 

230 IF V(,i>=0 THEN 250 

230 J=J+1 

240 GOTO 210 

?50 PRINT "DO VDJ WAMl TO PRINT COSTS FOR A RANSE DF OUflNTITIEB (V OR N)"; 

2iO INPUT A* 

270 IF A*="V" THEN 330 

280 PRINT -'EMTER QLIAWTITV TO BE COBTED"; 

290 INPLT 01 

300 (D2-G1 
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310 S-=l 

320 GOTO 400 

330 FfiilNT "ENTER GEBIhiNINS GUAWTnV"; 

340 INPUT Rl 

350 PRINT "ENTER ENDING KbftMTITV": 

3iO INPUT Q2 

370 PRINT "ENTER INTERVAL SETUECN PRINTS") 

3aO INPUT S 

3?0 REM **:t*t*tt*«t*t*ttt**ilt**lf***i*ilHt**ttt:^**t:t**t*t'ii******* 

400 REM IJlSPLftV RGSULTE 

410 REM ««**«»***«**«***«»***««****»*******************«**«***« 

420 PRINT 

A30 Jl=J-l 

440 11=1-1 

4E0 PhilNT X» 

460 pRtNt 

470 PRINT TAB(15U"0OB COST'' 

4B0 PRINT 

490 PRINT "OVEftHEfiD" ;TfiB(30) :0 

SOO f-RINT 

510 PRINT "FIXED COSTS" 

520 FOR 1=1 TO fl 

530 PRIMT ■■ " f F*< n ; TAB(30> ;F( I) 

S40 Fi?=F9+F<I> 

SSO NEXT 1 

5tO PRINT TAB(30>!" " 

570 PRINT "TrjTAI. FIXED COSTS" ; TAB (30 > j r9 

EBO PRINT 

S^SO PRINT "VARIfigLE COSTS" 

iOO FOR J=l TO Jl 

ilO PRINT '■ ";V*<J);TA&{30> jV(Jl 

6ZO V'?-V9+V(J) 

630 ME XT .1 

640 PRINT TABC30)!" " 

Hb50 PRINT "VARIflBLE COSTS PER UNIT" : TAB 130) ?V9 

560 PRINT 

i>70 PRINT X* 

6BO PRINT 

A90 REM *****«****t**PRINT ft RANGE [JF COSTS t**-*****tt**t**** 

TOO PRINT ■■DljaNT:TV;TSBC10) ; -DyERHEAD" ; TAB (20) ;-'FI)iED"! 

710 PRINT TABC30) ("VARIABLE"! TfiB(IO) ?"TOT COSTS" ; TAB <SO) i "CDST/UNIT" 

720 PRINT 

730 FOR K=E!1 TD 02 STEP S 

7flO T1"K*IJ9 

75C. T=0+F9+T1 

7h0 PRINT K;TAB(10) ;n;TAB(20» ;F9;TfiBrj:0) iTl ;TADf40) jTjTABfSO) ;T/k 

770 NEXT K 

780 PRINT X* 

T^O REM «*^it|:**ilix*«)lti***it**iil<>«***i«*ttitit!t**it4l1i*ltik!lilit«!t)l4[*«****;llii 

eOO REM PRDQRflN TERMINATION POINT 

8ia REM ******* i^ttitiitttti^lHtt.itiitt**itt***'t*t*****ii*t*tli:ttt***t**** 

B20 PRINT 

S30 PRINT 

840 PRINT "PROCESSIMS COMPLETE" 

350 PRINT 

860 STOP 
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BUN 'juiscosy 

£WTEB THF. rtMnUNT OF OyKKKEAIl DfJLLARS ID rtf-PLYT 1000 

lihTTtR riXED COSlB IHrtT APPLY AND THE TYPE OF CfJST 

EJifthf'LE lOOOiSfl Uf- CHrtRBES 

? 1000. SET UP EHAftDLS 

y 

EMTER Wfi[iIABL£ COSTS IHAT APPLY ANll THt: TYPE pF COST 

EXAMF'LE lO.MrtTF.TdftLS 

? KJ.M^lTERIftLS 

? 10. OTHER VARIABLE 

DO TtJU WANT TO PRINT COSTS F^OIt fl RrtMQE OF QUANTITIES <Y QK H)T T 
EWTER BECIMNINi; aUAHTIlY? IIW 

ENTER ENCIINC ClUflNTlTvr 200 

ENTER INTERUAL PETUEEN PRINTS? iO 

JOB COST 

DVERHEftD 1000 

FIXETJ t;0S3TS 
SET UP CHARGES 1000 



TIJTAL FIXS;d COIirs 1000 

y^lRIABLE COSTS 

MATERIALS 10 

nTHER UrtKIftBl.E 10 



UrtRIflBLE COSTS PER UNIT 20 

« net « 4! ¥>K!(:^** i» f **«f « HtiK^K t Ht!):* Ht 4c*i|! t » * * >^ » « «!):* «st!)!:»: Id « «^* 4: t « « It * * >!< 4c >F * 
UUANIITY OyERHEAD CIXEB VARIABLE TOT LDSTS CO'jI/UNlLr 

100 1000 1000 2000 -tOOO J|0 



110 


1000 


1000 


3200 


1200 


sa.iaiQ 


120 


1000 


1000 


2400 


4-400 


36,6,<i/>7 


130 


1000 


1000 


2A00 


4*00 


3S,jai6 


140 


1000 


1000 


2800 


4B0O 


34.2S57 


150 


1000 


1000 


aooo 


5000 


J3.3333 


160 


1000 


1000 


3200 


5200 


32. S 


170 


1000 


1000 


:340<] 


S400 


31 .76^7 


100 


1000 


]000 


3600 


SAOO 


31. UU 


lf<3 


iODD 


lOOO 


;iS0O 


iJHOO 


30.S:i63 



200 1000 1000 4000 A 000 30 



PRDCES3INQ COMPLETE 



BREAK IN SiSO 
UK 
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MAJOR SYMBOL TftBLE - JDBCOST 



I NAME 
J 

A« 

F*<) 

FO 

F9 

I 

li 

J 

Jl 

M 

O 

Ql 

CI2 

S 

T 

TL 

VtO 

l^i > 

V9 



BESCftlPTlON 



UPTJUN-AMSWER VftRlAELE 

FIXED COST NAME AKRrtY 

FIJCED COST AKAf 

TOTAL FIXES COSTS 

INDEX TD FIXE& COSTS 

NUMBER OF FIXED COSTS GN 1 ERED 

INCfEX TO VARIABLE COSTS 

NUMbER OF VARIABLE COSTS ENTERED 

MAXIMUM ^RRAY SIZE 

OVERHEAD COSTS 

BEGIN PRINT UUANTITT 

END hUWI PUANTITY 

PRINT INTERVAL 

TOTAL COSTS 

TOTAL VARIAfL£ COBTS 

VARIABLE COKT HAME ARRAY 

VARIABLE COST ARRftV 

TOTAL yfiRIABLe tOSTS PER UNIT 

LINE OF ASTERISKS 



FUNCTIONS USED 
I 

I NAME 

I 

I TAB 
I DIM 

I 



Bill of Materials 

Pro-am Name: BlIX-MAT 

This program performs all functions necessary to maintain a ran- 
dom-access disk file containing the material requirements for multiple 
products. Individual material components and assemblies can be entered 
in the file and recalled whert required. To execute this program, the 
operator need only respond to the program messages (fig. 8-1). When a 




I M^iTERIftLS 



-J 



LIST OF 

, PROOUCTS 
1 IN FILE _) 



/ UPO*T£D / 

t BILL OF ' 



\ 



MATERIALS 
FILE 



Fig. 8-1 Opefaiitin o* the bid of nnatsriali program 
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product number that does not exist in the file is entered, the operator 
his the option of adding it to rhe file, printing it, and then storing the 
bill of materials, Tf it is found to exist in the file already, the operator 
has the option of printing it anyu'ay or deleting it. 

One random-access file is used by the program, its name defined 
by the operator. The contents are shown in Fig. 8-2. 



'vpical 
ecord 



'foduct 
nasier 



Materi- 
el type 


Qty. 


Material 
descrip- 
tion 


Materi- 
al type 


Qtv- 

- 


MattTial 
descrip- 
tion 


Materi- 
al type 


Qly. 


Material 

dtscrip- 

tion 


l^axt 

record 

no. 



Record 
code 


Product 
number 


Product 
name 


Materi- 
al type 


Qty, 


Mattrial 

dsscrip- 

tian 


Materi- 
al type 


Qty. 


Uteterial 

dtjscrip. 
tiort 


Next 

r^tord 

no. 



TSUI 



POS 



P2I 



T$I2I Q1tl2l D1$(Z) 



TS(3I QlSai D1$(3) 



MS 



ai$it| Di$(i) 



Ftg. 3^2 Record format 



S CLEAR900 

10 REM SftVED fiT BILLMAT 

2Ci fteiM eiLL OF MATERIALS PROGRAM 

So REM ttllt*XII*t**tt*****il*tt*lltt1lt'it**if***»*t*t**t*!HnHH^*.*.tiHi:t 

33 CLS 

40 rtis^O 

so DIM fi'tSM) , Rt(M) , TS (t1> 

bo DIM Tl* (4) ,Q1« (4) ,D1*(4) 

70 I^EM 1 *$***** t»**itLlf)itt**tt**t ******** **t*******tt**ll***tf***yf" 

BO PRINT "FNTER THE NAME OF THE BILL OF MATERIALS FILE"? 

VO INPUT F« 

100 eOSUB 620 'FILE OPEN 

110 MCi=LOFtn 

lis IF M0=0 THEN MO=l 

t20 DIM P»91MO>,S<W0> 

130 GOauB 7iO 'TABLE BUILD 

140 PRIHT "ENTER PRODUCT NUMBER"; 

150 P*=''" 

£6<1 IHPUT P* 

170 IF p*."" THEN 520 

ISO IF LEN<F*><S THEN P*"P1i-t-" "lEOTQ 190 

190 FOR 1 = 1 Tn ttl^ 

200 IF P*=Pi4fn THEM 370 

210 NEXT I 

220 PRINT "PRODUCT MOT IN FILE - DO YOU WISH TD r.PNTINUE (¥ OR N>' 

230 INPUT A* 

240 IF LEFT»(A«, i>-;:,'"V" THEN l^iO 

250 REM **t.tt^**fttt***tt1t*t**tlft.******************t******i**** 

260 REM PRODUCT NOT FOUND 

270 REM !^*tt*******t*******t**************t**t***t**i***)t***** 

2B0 GCJSUB 1530 -ENTER INFO 

2"?0 PRINT "SHBLL 1 PRINT THE BILL QF tIATERlftUS (Y OR N>"? 

30O INPUT A* 

310 IF LEPT*tA«, l>="V" THEN BDSUB 1710 "FORMATTED PRINT 

320 PRINT "SHALL I PLfiCE THE PRODUCT IN THE FILE (V pp N>"; 

330 INPUT A* 

340 IF LEFT»(A», 1>="V' THEN BOSUB 102O 'FILE WRITE 

350 GOTD 140 



360 REM t**!ll**iii(*lt***ii**tt*!lll:***ilt*!tttt**1l1tt*»tt*lt*lt*tilHtt*IIX**it 

37Q REM PRODUCT FOUND 

3eo REM *lt*******it*************^******************t*********** 

■590 PT^IKT "PRODUCT FOUND - SHALL I PRIMT IT (V OR N)"; 

40O INPUT A* 

■"110 IF LEFT* (ft*,l><>"N" THEN 460 

120 PRINT "SHftLL 1 DELETE IT (Y OR N>"; 

43iJ INPUT A* 

A40 IF LEFTS (A*.1)="Y" TMEN QOSUB 1 930 ' DEt-HTE PRODUCT 

150 OOTD HO 

46fl PRINT 

170 K=S i I ) 

leo (iOSUB 1540 'BUILD TSBLE FOR PRINT 

1*50 ranSlJB 1710 ■FORMATTED PRINT 

500 GOTO 140 

SIO REM *istt***t*t**!(********t**tt****t***t*t*i(l****t1t**tt**it**:t 

aso REM PROGRAM TERMINATIDM POINT 

£30 REM ■j>:**tti*it***'i!>ll*******t*****»******t**)L*tt**tt***t****** 

S40 LSET Tl.»( i> = " '■ 

5S0 LSET N*=MKT#(L) 

SAO PUTJtl , 1. 

570 PRINT 

!5Sa PRINT 

590 PRINT "PRDCESSINB COMPLETE" 

600 CLOSE I 

610 STOP 

620 REM :*»«««»««»*«**»***«»*** «t»t#»tt*******«»i«*«t***t«« ****** 

630 REM FILE OF'EN AMD DEFINE 

640 REN t»4<it*»iiititt:ti!tt**^ilil:**i«ili***ilili*««ili**«*it***4ilii*li**«***«li** 

630 OPEN "R", 1 ,F* 

Attl FOR 1 = 1 TO 4 

470 FIELD 1,(I-1>*3I AS XI*,! AS T1*(I>,6 AS (31*(I>,1"4 AS D1*(I 

A80 NEXT 1 

490 FIELD 1,J AS )(1*,B AS P0*,22 AS P2*.S4 AS S(l*.2 AS W* 

7(>0 RfCTURN 

710 REM *»*iH»-**«»**t***«***********il**«*»*«**t»***«**t***««** 

730 REM BUILD PRODUCT TAI&LE 

730 REM it*H*ii*t*-*'*t*1t*'i*t>Hf-1fttttit*i-*-itt*-*tt**it**lltiHH:t'Httt* 

740 J=l 

7&0 FOR K=l To MO 

760 IF K^LDFdl THEN S?0 

770 GOSUEl fhO 'FILE READ 

790 IF Tl» CI )<>'■*" THEN 320 

7^0 P11(J)=P0* 

SOO S(J)»K 

aiO J-J+1 

020 NEXT K 

930 MI=J-1 

840 PRINT TAB (5!^ Ml; "PRODUCTS ARE IN THE FILE" 

eSO PPINT "SHALL I PRINT A LIST OF ALL PRODUCTS CV OR N>"; 

S60 INPUT A* 

870 IF LEFT»(A«, n=="V" THEN QOSUB 21!50 ' PROD JCT LIST 

880 REM 1i**+1it1[ INITIALIZE LAST RECORD COUNTER ******* 

S90 L=l 

•'OO IF M1==0 THEN 940 

910 K=t 

920 GOSUB 970 'FILE READ 

•?30 L=CUI (N») 

940 PRINT 

9S0 RETURN 

V60 REM *ttt*ll**tll*tt*Sttt*t1t**1l1t*t*tt1t***%*t*itt***X*>tt.ttt**t** 

•570 REM FILE READ 

9aC> REM ****»***********««***#**]|i*t««**«t«**t»*«»Et**t*«t**i(l*«*t 

990 SETItl, li 

1000 RETURN 



1010 REM *ii:*tltitil)**t*±*********t*t*«******t**t***t****t**Xti^-*ilt** 

iO-20 REM FILE WRITE 

1O30 REM *it**tlfttit**t****t*:***»**tt*****tlf*ttM*tt»:*********tt*t 

1040 MA=M3/4 

lOSli IF M4', >1MT(M4! THEN n4=3NT (M4-i-l> 

1070 K=2 

lOSO FOR I-M4 TO 1 STEP -1 

IO«JO FGR ,I=K TO LOF(l) 

1100 K=J 

IIJO JF 3=LDF(1) THEN 1130 

1120 IF J=l.+1 THEW I ISO 

1130 GOSUB 970 'FILE REftD 

1140 IF TI*(11<) THFM 1210 

1150 FCIR .Jl=t TO 4 

1160 LSET Tlii(Jl)-T*t(I-l>*4+Jl> 

1170 LSET 01*(J1) =0* ( tl-I >*4+J1 ) 

1180 LSHT Dlt (Jl>=D«((I-l>*4-l-Jl> 

1190 NEXT J I 

1200 SOTO 1220 

1210 NEXT J 

1Z20 IF JiL THEN 1 2S0 

1230 L=L+1 

1240 J=L 

1230 K'J 

i;?60 LSET M*-MK1«(N) 

1270 N=K 

12B0 IF T1«<1)CJ"*" THEN 1310 

1290 LSET PO*»P* 

1300 LSET P2»=N2* 

1310 PUT*1,K 

1320 NEXT I 

1330 RETURN 

J.340 REh t+**t*t*** + * + *** + *** + *** + *****. + **t*=Hi + ***tt + + **> + t*tt* 

13E0 REM &1JILD flftPAT' FROM F i LE FOR PRINTINQ 

1360 REM *ii,ittt**tt*it*t*t*****i***^**tt*****t**t*t***tittmtt**tt 

1370 Jl=l 

13a0 IF Ki = <i rHEM 1530 

1390 GCSUB 970 'FILE READ 

lifOO N=cyi (Nt> 

1410 FDR n=t Tn 4 

1420 IF T1»<T1)="S" THEN 1330 

1430 IF T1*(I1)=:>"1<" THEN 1460 

1440 P«=>PO« 

1450 r>(2t=P2t 

1460 Tt(Jl)=Tl*<l 1> 

1470 E>« IJl 1 =Q1« ( II ) 

14B0 D*(JJ )=ni*(n) 

M^fO ,3 1=Jl-i-l 

ISOO NE>!T II 

tSlO K-=N 

is2i> Bara isao 

1530 H3-J1-1 

1540 RETURN 

1330 REtl »*llt******llt**************t**»L»*llt*ttlt***********»ll(iltt 

1560 REtf EMTER NEW PRODUCT INFORMATIGW 

1570 REM **ttt*1.tt*t*.lt***il.*lf**t».**lllli**t*tl****.lll***t***tlt*tt***tlt 

1580 PRINT "ENTER PRODUCT NftHE") 

1S90 INPUT N2* 

1600 LSET P2S.=N2« 

1610 PRINT "ENTER MATERIAL TVPE CODE,QTV, DESCRIPTrON - RETURN WHEN DONE" 

1620 T« (!» = '■*" 

1630 LSET PO±=P* 

1640 FOR 1=2 TD M 
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1640 INPUT T4(I>,(5*<1>,D*(I) 
1670 IF T*!I)-"" THEN 1690 
16B0 NEKT I 
1690 M3=I-1 

170* RETURN 

1720 REM FORMATTE'D PRINT FROM ARRAY 

1730 REM i»*»3|(****t*«**«**»:*»*t*«»r*1i*»******»|-*******«**»**if ***# 

1740 Jl"l 

1750 PRINT "POSITIDW PAPER NOW 5 

17iO INPUT At 

1770 UPRINT Sis 

17BO LPRIhJT " " 

1790 LPRINT T/!iB(10>^ "BILL OF MATERIALS" 

IBOO UPRINT " " 

ISIO LPRINT TAB tS>; "PRODUCT " ,-P* i TAB (20) : N2I 

1B2CP LPRINT " " 

1B30 LPRINT Tfl6fS:>5"TVPe";TASfl5>f "CIT¥"!TftBii>5) ;"nEM" 

IB40 LPRINT TftBO) ; '■ ■■;TftEi(l'*) ;" " i TAR (225 ; " 

1830 FOR 1=2 TO 113 

1860 LPRINT TftB(71 ;T*(I>;TftB:]5>sl3t(I> ;TftB(22)5D»(l> 

1970 NEXT I 

18Bi:i LPRINT ■' " 

lBt?0 LPRINT X* 

1¥00 LPRINT ■■ " 

1910 LPRINT " ■' 

1920 RETURN 

1 930 RKM ******** *****t*****«t**t***t«**********«*******«**f«*» 

1940 HEM DELETE PRDDUCT 

1950 REN ****it*Ji*****t*tttttitttt*.^tt*'^**'tti*-fiiit**t^fiit*t*iti^fiil:t* 

1960 flt="" 

1970 PRINT "ARR VQU CERTAIN THAT VOU MANl TO DELETE ";Pl*(i[>f 

19B0 INPUT a* 

1990 IP LEFT*<fi«, 1K>"Y" THEN 2140 

2000 K=G < I > 

2O10 GOSUB 970 

2030 N=CVI (N*) 

2030 FDR 1=1 TO S 

204O LSET TlSi(r>-" " 

2050 LSET E1»(I)='" '■ 

20iiO LSET Dl±(l)=" " 

2O70 NEXT I 

2030 LSET N»=MKI*<03 

£090 PUT*1,K 

aiOO IF Ni=0 TtHEM ^130 

3110 \f=H 

2120 GOTO 20 Kl 

2130 PRINT "PRonUCT ";Pl*CI)i" HAS BEEN DELETED" 

214<:> RETURN 

£ 1 So REM t»*»t»if»********it**inmi**»**it** *********************** 

2160 REM PRODUCT LIST 

2170 REM t**if****ttt»tt*imt*'^>t***t*tl-!t***.illl*tit*nttilHHlttti:tttti 

SISO PRIMT 

2190 PRINT )!t 

2200 PRINT 

2210 PRINT "PRDDUCT REC «" 

2220 PRINT 

2230 FOR 1=1 TO Mi 

^240 PRINT F14 H); TAB(1Z>;S(I) 

2230 WE XT I 

2260 PRINT 

2270 PRINT >!S 

2280 RETURN 
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KUM "Uli.L-MflT 

EN7FR THE N^rtE OF THE BILL OF MATERIALS FILE' hAT-FILE 

o FRnuucrs are in the file 

SHALL I PRINT A LIST OF ALL PffOntJUTS tV OR N)Y N 

ENTt:R PffOPOCT NUMBER? Alll 

PRODUCT NOT IN FILE - 110 fOU UJSH TO CONlJNUE (V OR N>? Y 

ENTER F-RO^UCT NftMt'? SUF-EFi DELUKE UIHGET 

ENTER MATERIAL TYPE COEEf [ITY j DESCRIPTION -RETUJ^N WHEN HONE 

? ArlrHATERIflL ASSttttLY *t 

' A,2>MflrERtAl. flSEEMBlLY tS 

? C.4Fj;flM NAT COMfONENr +1 

7 CrS.RAU MAT COMPUNENT *2 

7 

SHALL 1 PRINT THE BILL OF MATERIAUa <1f 01^ N)? Y 

POSITION PAPER MOW? 

RILL OF NATERIALS 

PRODUCT All! SUPER DELUDE UIDGET 

TYPE QTY ITEM 

A 1 HATERIftL ASSEMBLY tl 

A 2 MATERIAL ABEEMBLY «2 

C 4 RAW MAT COMPONENT tl 

C 3 RAU HAT COMPONENT *2 

III 41 41 «I If! » * * :« It 4i4!;|t If! * 41 ^ +;<! Ill f i^ ill!): It m 4c!|il^ If It ^ *** If ill ¥* H * *^ *< X * m * m !|c*4i iC *: * H 41 m JiiKiti*** 

SHALL I PLACE THE PRODUCT IN THE FILE (Y OR NJ? V 

ENTER PRODUCT NUMBER? AUa 

PROIlUCT NOT IN FILE -- DO YOU UISH TO i;UNTINLFt <Y OR N)? Y 

ENTER PRODUCT NAME? WORLD SERIES HOT DOC 

ENTER MATERIAL TYPE CODE ,OTY,PESCRIPTIUN -RETURN ytlt:N DUNE 

7 CfIfHOT doc 

7 Cfl.RDLL 

7 CfI. TSPrMUSTASiD 

7 

SHALL I PRINT THE EILL OF MATERIALS <Y OR N>? Y 

POEITION PAPER NOU? 

BILL OF MATERIALS 

PRODUCT A 112 WORLD seR:ES HOT DOG 

TYPE aTY ITEM 

C 1 HOT DOB 

C 1 ROLL 

C 1 T3F MUSTARD 



SHALL I PLACE THE PRODUCT IN THE FILE (Y OR N>? Y 
EKTER PRODUCT NUMBER? 



PROCESSING COMPLETE 
BREflJ^ IM ilO 
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[tUN 'BILL-MAT" 

CNTER IHE NAME OF THE BILL OF MATefiTALS Fn.ti:? KrtT-FILE 

2 PROrtUCfS ARE JN THE PILE 
SHftLL 1 PRINT fl LIST OF ALL PROCUCTS (Y OR N)? N 



ENTER PRODUCT WIJMBER? fiU2 
PRODUCT FOUND -SHALL I PKINT II 



POSITION PftPER MOW? 



<Y ns N>? Y 



BILL OF MflTERIftLfi 
rRObuCT Al±2 WORLI" EEftlES HOT DOC 

TYPE QTY ITEM 



1 HOT nOG 

1 ROLL 

1 TSP MUSTARD 



)t:]t4:^!til:*iKiliXtti^>l'!li)()(^!):il'*:4t*it!*>K**f**)!*it**><**ilt******«!|c!t:!*i*ili**«*>«it:t:slc*i)i!l(« 



ENTER PftO&UCT MUMBEfiT All 3 

PRODUCT NOT IN FILE - 00 YOU WISH TO CUNTINUH CY OR N)? N 

ENTER PRODUCT HUMBERT 



F'ROCESSING COMPLETE 



BREAK IN ilO 
OK 



MAJOR SYMBOL TABLE BILL-MAT 



I NAME 
I- 

I At 

DUO 
f% 

I 

IJ 

J 

Jl 

V. 

L 

LOFd 

M 

MO 

Ml 

MJ 

M4 

N 

N* 

N2t 

P* 

P9» 



.. DESCRIPTrON 



INPUT ANWUER WftRIABLE 

DtSCRIPTlUN or MATtRIflL ARRAY 

DESCRIPTION ARRAY - IN FILE 

FILE NAME 

INIiEX flNli rtRRAY POINTER 

INDEX AfJ[i ARRAY POINTER 

INDEX AND ARRAY POINTER 

INDEX ANIl AIIKAV PUINTER 

REi:{)R[r t TO BC READ 

LAST RECORD t USED 

LAST RECOftE NUMBER USED IN FILE 1 

MA>; NUHFER OF MATERIALS PtH PRODUCT 

MAX MUMBER OF PRODUCTS IN FILE 

NLTMBfft OF PRODUCTS IM THS; FILE 

NUMBER OF MATERIAL ITEMS ENTERED 

MUMBER OF RECORtlS TD BE WRITTEN 

NEXT RECORD NUMBER 

CHARACTER ;iTRTN(j OF NEXT RECORD 

INPUT PRODUCT NAME 

INPUT PRODUCT NAME 

PRDBUCT NUMBER - IN FILE 



FUNCTIONS 


USED 






I NAME 












I DIM 




I GDSUB 




I RETURN 




I PUT 




I GET 




I CUI 




I MKIt 




I TAB 




I INT 




I LSET 




I LEW 




I FIELD 




I SPACE* 




I LOF(l) 




I—— 


-^^ — I 
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Pl«( ) 




P3« 




01*() . 




so 




T1*0 , 




X* 
Hit. 







PRODUCT N^nE ARRftr I 
PliODUCT N^ME - IM FILE I 
GITY ARfltit I 
OTY ARRAY - IN FILE I 
FROIlUCT RECORD * ftRRflY Z 
TYPE ARRAY I 
TYPE AftRAY - IN FILE 1 
LINE tIF ASTFRISNS I 
iJUMMY yftRiCABl,E I 
1 



Production Scheduling 

Program Name: SCHEDUT.E 

This program, which records and displays the scheduled use of 
critical items, can be applied to a wide viiriery of problems involving the 
allocation and scheduling of any scarce resource. It contains all of the 
functions necessary to operate such a system. It is executed by entering 
the appropria.ce option number in response to the program message. 

The operation of the system requires three distinct steps: 

1. Initialization of the system: The initiali'^ation option must he exe- 
cuted for each separate .scheduling period (that is. month). This 
option creates, and initializes, a file for that period. The file is 
created as "Pxxx", where "xxx" is the abbreviation of the month. 

2. Scheduling resources: Resources (machines) are scheduled for 
specific time periods through the execution of Option 2. This 
option allocates individual one-hour segments to jobs and records 
the scheduling in the file. 

3. Printing (/querying) schedules: Option 3 allows ttie review of sched- 
ules to determine available time and to assist in providing separate 
and combined schedules. 

The flowchart in Fig, 8-3 iUustrates the typical processing of the 
scheduhng system. 

The scheduling program requires just one file for its operation, a 
file created and initialized by Option 1. It is i random-access file named 
"Pxxx", where "KX.f" is a diree-lcrtcr, month-name abbreviation; for 
example, PAPR indicates the April file. All records have the identical 
format shown in Fig, 8-+, 
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INITIALIZE 
IHFCt!!lil/LriaM 



SCHEOULEtJ 
PROJECTS 



SCHEOULE 
OPTION I 



SCHEDJLE j 

MLE 



11 



SCHEDULE 
OPTION 2 



I FiESOUKCt 

I LIST 



, I 



I 1 

I nEsouncE i 

SCHEDULE- I 
' ALL ^^J 



UPMTED 
SCHEDULE 

FILE 



SCHEOULE 
OPTION } 



T^ 



r- 1 

I «E£OUFiCE I 

SCHEDULE- I 

I IN0IVI0U4L J 



7:11 

I RESOURCE ! 
I LIST 

I 



_l 



Fig. 8-3 Opera lion of the s^h^Liling program 



Suggested enhancement: Since scheduling records contain eight- 
characccr project name; for specific time periods, an additional option 
can be implemented to display the scheduled accomplishment of all 
tasks. 



Refourca name- 


Dsie 


Start 

hour 


Number 
hours 


Project 


Project 



ni$ 



DS S$ HS f$(1) PS(2) 

Occurs HO times 
Fi(i. S-4 Racord lormai 
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10 REM SWED AT !;t:HfDUl.t: 

20 REM PRODUCTION SCHEDULING SVSTEM 

30 REM 1f*tt*1Htt***»t******t*****»********t********t****^******* 

35 CLS 

40 yit^" tt>it **t »*»* tt *:**.****: t*it tt lit t ***************** **********■" 

30 H0=12 

60 ti=100 

70 DJM R*(M1 .Pl(12) 

BO PRINT "ENTER THE MONTH NAME ftBeREWIflTIDN I.E. JflN"] 

■SO INPUT Mi 

100 DATA JftN, rjl,FeB,2'?,MAR,31 ,flPR,30,MflV,31, J1]N,30 

110 DATA JUL.31,ALG,31,SEP,30!,0CT,31,NDy,30,DEC,31 

120 FOR 1=1 TD 12 

130 READ Ml-tiDl 

140 IF M1*=M* THEN 180 

150 NEXT 1 

160 PRINT "IN^PiUID MONTH ABBREVIATION - TRY AQfllN" 

170 GOTO 80 

IBO PRINT 

190 F**"P"+Mt 

200 aoSUB 15feO 'OPEN FILE 

■210 Nl-Dl 

220 NZ=N1 

230 REh t*litt*«t«]|it**«*t*;ltlit*^t|[i«*liti|[|*tit*|[*!ltitt*i(i«t*K(li]|i*:(i*«i«;«t* 

240 REN CHOOSE PRDCEISSINS Op-TION 

230 REr4 ******************************************************* 

260 PRINT "THE FOLLOWING OPTIONS ARE AVAILABLE!" 

270 PRINT TflB<5) ;"1. .. INITIALISING FILES" 

280 PRINT TAti (S>; "2. . .SCHEDULING RESOURIIES" 

290 PRINT TAFl(S) i"3. . .PRINTING SCHEDULES" 

300 PRINT 

310 PRINT "ENTER THE OPTION NUMBER DESIREB - PRESS RETURN TO STOP" 

320 INPUT 

330 IF 0=1 THEN eosUB 440 'INITIALIZE KlLES 

340 IF D"2 THEN QOSUB 750 'SCHEDLlLE ENTRIES 

3SO IF 0=3 THEM OOSUB 1090 'PRINT SCHEDULE 

^dO REM ****t*****t*t********:lf******)t****if**)f*.**li.***».******** 

370 REM PRGBRflM TERMINATION POINT 

380 REM ***l.t**t**********».**lf******************************* 

3-90 CLOSE 1 

400 PRINT 

410 PRINT "PROCESSING COMPLETE" 

420 PRINT 

430 STOP 

440 REN ***»**t1l***)tlt****t*******t**'****t****t*******Xlii*t*-*** 

450 REM ! FILE INIT I AL I 7 AT I ON 

4^0 REM **t*it*t»*t*************t********tt******************* 

470 PRINT "ENTER THE STflRTINS HOUR FOR THE SCHEDULE I.E. OSOO"; 

180 INPUT 3 

490 PRINT "ENTtTR THE NUMBER OF HOURS PER RAV TO SCHEDULE"; 

300 INPUT H 

510 If H<=ho Then 340 

520 print "the ma>;imum number of hours in fach file is 12" 

330 GOTO 490 

540 PRINT "THE FILE NAME WILL BE DREATED AS " : F* 

550 PRINT "ENTER THE RESOURCES TO BE INCLUDED IN THE FILE" 
560 RRINT "JUST PRESS THE RETURN - WHEN FINISHED" 

570 PRINT 

5fiO FOR 1=1 TO M 

S'JO INPUT R»(I1 

too IF K»(I)a"" THEN 620 

610 NEXT I 

&20 REM *****t*********lt*t***JH*t***i****lt***t*it:t*1t*lft******* 

630 REM PRacE:SSING TO FILE 

640 REM *********it**it**t*tlntt*Ti*t*if**i***tiitt***.lf*tl.******ll*** 

650 PRINT "FILES ARE BEING INITIALIZED" 

640 M-'I-l 



L70 60SUE 1720 'INlTlftLlIE RECORD 

iBO FDR I'll TO M 

i90 SDSIJB IBIO 'WRITE RECORD 

70O Mi^XT I 

710 ft*(H="eND" 

720 M2=l 

730 raOSUB ISIO 'WRITE END RECORD 

740 RETURN 

730 REM *****t**t*i|i«t***tt**t**********t*«**=**t*****«*t****«** 

760 ftKM 7. SCHEDULE ENTRY 

770 REM 1t*».*im'»*ttt%%*tmif>i.*'Hit*>i.*ir*'>i.il.i>-1t^*tft^**'f**'t*'ttiHl.rHmiHm* 

780 SDSIJB l'?60 ' CHEAT F RfiSOljF^CF TAElL E 

790 PRINT "SHALL I PRINT THE RtSDURCES IN THE FILE (V OR N)"; 

BOO INPUT A* 

810 IF LEFTS (A», n="¥" THEN SDSUB 2O70 "PRINT TABLE 

820 PRINT -'SHALL I PR] NT THE RECORD CY OR N>"; 

830 INPUT fll« 

S40 PRINT "ENTER THE MACHINE NUMBER TD BE SCHEDULED - RETURN TO 3T0P" 

S50 M3=0 

giO IHPUT 113 

870 IF tt3=0 THEM lORO 

080 PRINT "EKTE-IR THE DflV TO BE SCHEDUUEP'S 

B90 INPUT D3 

900 K=(M^-1>*NH-D3 

910 SOSU& 1640 -ftEAD FILE 

920 HlS-Rl* 

930 IF LEFTS (fl:l*, 1) ^J'-'Y" THEN <f70 

940 eOSUB 2250 'PRINT HEADIMQ 

950 ROSUB 2170 'PRINT RECORO 

960 PRIJMT 

970 PRlhlT "ENTER THE HOUR TQ SCHEDULE: fiWD THE TfiSK J.E. 0000, TfiSKl"; 

'i>aO H2=0 

990 INPUT HS,T» 

1000 IF H2=0 mEN lOBO 

lljlO H2=IMT (H2/100) 

1020 HisS/100 

1030 H3=H2-H1+1 

104O LSi-T P*{H3»="T* 

1050 IF LEFT*(fll*, I >="Y" THEN liOSUB 23.70 'PRINT RECORD 

lOAO GOftUe 1910 'FILE WRITE 

1O70 BDTO 940 

lOBO RETURN 

1090 RF:h Hit^it********-*************^**** *•*'****** *************** 

1100 REtl :5 PRlMr SCHEDULE 

1110 Rl£n titJttt*:«t*^«t*)i«**i);!«**««]!«7tili:iia«)iili:(iiii*Ki«*i)rit*x*i|i^>li4iit9t»:i:)l<!|< 

ll?0 H2*="DAy" 

1130 60SUB 1960 'CREATE RESOURCE TPBLF, 

li40 PRINT "SHfiLL X PRINT THE RESOURCE TftBLE iY OR N) " ; 

1 130 INPUT A« 

ilfcO ir LEFT*<rt*, 1)="V THEN SDSUB 2070 'PRINT TABLE 

1170 PRINT "BHAlL I PRIMT ALL RESOURCES <V OR N>"! 

11 SO INPUT n* 

1.190 PRINT "ENTER THE FIRST AND LftST DAY TO BE PRINTED I.E. 1,10"; 

1200 INPUT JO.Jl 

1210 IF lEFTiirt*, 1) ="¥" THEN 1400 

1220 REM ***.t**t*** PftlNF INDIVtlJUW. Fil^SDURCE *«tlHI(**^I^!***«**** 

1530 PRINT "ENTER THE MACHINE NUMBER TO BE PRINTED - O Td STOP'; 

1240 M3=0 

1250 INPUT «3 

1260 PRINT 

1270 IF t13=0 THEN 1540 

ISaO lt:=i(M3-l ) tNl-Hl 

1290 BQSUD 1640 'FILE READ 

1500 H11i"Rl* 
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-1310 GOBU!* 77.60 'PRIMT HEADING 

1320 FOR J=JO TD Jl 

13*0 BOSIJB 1640 'FILE FiEAD 

.1350 PRINT Ds 

IZhO GOaUB .^170 'PRINT RECnRlJ 

1370 NEXT J 

13S0 PRINT XS 

1390 CiQTO li3'> 

1400 RFM ************* PRINT ALL ENTRIfiS It******************* 

14 10 HI*--" COMBINED " 



14^0 


FOR J=.10 T(J J! 




i430 


D=J 




1440 


H2't="«LH" 




14S0 


GOSUB 23S0 


'PRINT HEAD 


14iCl 


FOR 11=1 TD M 




1470 


K=(<Il-l;*Ni;->-J 




1430 


GOSUB 1640 


'FILE READ 


14W 


PRINT Hi 




ISOO 


BOSUB 2170 


'PRIMT LINE 


13KI 


PRINT 




1520 


NEXT ri 





1S30 NEXT J 

1540 RETURN 

IflSO REM *lili****itx«***t ************t**»>ti|***t****l'**t *«**«**t 

iSaO REM FILE OPEN fiUD DEFINE 

J570 HEM *ln)l!*J(nilH**lt***»:«**«*!(>lsl***»»»******ir*****«**»t***t*** 

ISaO OPEN "R", 1,F* 

ISVO PIELD l,2i. MS Rl«,2 AS D*,a AS B», :; ft-i H« 

ItOO FQR ! = 1 TO HCI 

1610 FIELD 1,32+(I-1>*S AS XI*, 6 AS P4 { I) 

1620 NEXT 3 

1630 RETURN 

li40 REM it***!*********************************************** 

1650 REM FILE READ 

IsaO REM ****»«***««**»«t**til<»*«*1i***««*««liKi«**4i**ii't**>li*«***« 

1470 BET l,K 

J6S0 H=CV] (H*) 

16-?0 S=CUI <S*) 

17O0 DaCVT (1i*) 

1710 RETURN 

1720 REM »»*«t**t***j;***«»***»»**»*«*tt***t»**t»t«t*«i|r*»****i|i 

1730 REM RECORD INITIALIZE 

1740 REhl «***!t«*lC**1i**4<«*:f t***4'**l^ll!*t***********«***lll):ilt!t«K>t« 

17S0 LSFT S*=MKI*(S) 

1760 LSET H*"MI<;i*[H) 

17T0 FOR 1-1 TO H 

1780 LSET P«(I>="" 

17*?0 NEKT I 

1800 RETURN 

IQIO REH *«tl**ll<***!lI*l^**iIt:t;|t1I*t*llI44'>lI;f*i******lt!|I**t*****t*****« 

1B7S.1 REM INITIALIZE FILE WRITE 

1S3'0 REM t*******^!************)!*********]!******************** 

la+O LSET Rti=R«(I) 

iBso FOR j=) TLi n:: 

laiO LSET D*nMKI*(J> 

1870 K=(I--1>*N1+J 

1880 PUT 1,K 

ira';>0 NEXT J 

1900 RETURM 
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I?i4 REM ***t^ll^tl^t*^^^^*t*l^tt***t^^t*t^l*■*tt.****.^^i(*t*:>l.*|(***-*ll|.tt*t. 

i930 REM F ILE WRITE RDUriNE 

1930 REM t***t****:>*M**************tt*********!lt**lt*ill*lt****3t*:$ 

1940 P(JT l.K 

19^<f RETURN 

1970 REM CREATE RESOURCE TAl^L^-: 

1980 REM *iHlttit,tilt*tll*ittitilllt**Tlft*>itt»tlfai»*t*.t:tift***fit**it*t!H*.* 

1'590 FDR 1=1 TO M 

200fi J<;=(I-1>«N1+1 

2010 (3(JBUrH 16'10 "FILE READ 

2O20 IF LeFT'*(Rl*,3) = "END" THEN 2050 

20:^0 R*<T>=Rti 

2040 NE)(T : 

2050 M-J-1 

20ii<i FrETURN 

207O REr^ **}t****\*it*X**t*******il****lllliil*M!>t*.****:iHtt*it***fii**lli 

3OQ0 REM PRINT RESOURCE rfiBLE 

2090 REM *4i)itt:t«tili]|<1i)t«Hi««:>|::(X*ti:l<«t«!litt^^«t»J(IfitJk*>^:t:tt««4**^*t 

2100 PRINT 

2110 PRINT "NBR RESOURCE" 

2130 PRINT 

2130 FOR 1=1 TD tt 

21 40 RHINT ijTABfH) ,'R*(I> 
21S0 NEXT I 

21iO RETURN 

Jiyci REM +**!H*t**t***t*t*t******i|tt#1i***t**»***t* ♦»» + *»»**** 

21S0 REM PRINT IMDiyjDUf^L RESOURCE SCHFEJl.tr 

2]?0 REM ^**,t***ti.*i*xiH.itt;ittt».***V***t.***t***ii.***iH:*ii***»it**». 

2200 FDR I=-l TD H 

Z210 PRINT TAB) fI-l)»7<-2>iP*(I>; 

2220 NEXT I 

2230 PRINT 

2240 RETURN 

22S0 RFtl ft1lttt(**t:tttllll.tll1i:%t*'^ttit***tV^M*'*tt1l**t*:tt*.*H».tllt 

22 AO REM PRINT HE Am MB 

2?70 REM t*ntt*ilHi*t%li:ttt%»t***fllilltt*ttt*****«it**t!Ht*1t*t.1t»t 

22SO PRINT X* 

22=?0 PRINT 

230O PRINT TABdO) tHlSs"Si;HEDULE"!D;M* 

2310 PRINT 

2330 PRINT H"«ii 

2730 FDR 1 = 1 TO H 

7340 PRINT TAB( (I-l)*7 + 3) ;S+aoO*(I-lH i 

2350 NEXT I 

2360 PRINT 

2370 PVilHT 

2730 RETURN 
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kUH "KtHCDULE" 

ENTER THE MONTH NAME: ABBREVIATION I.E. JAW? fiPR 

THE FOLL.DUIMG GPTIONS ARE A^;AILABL£; 
1,..I:N1T1AHZIWG FILES 
S...SCHEDUI. rWG RESOURCES 
3.,, PRINTING SCHEDULE!; 

ENTER THE OPTION MUMEER DESIROJ -PK£:aS RETURN TO BTPP? 1 

ENTPR THF STARTING HOUR l"OF£ THE SCHEDULE I.fc". OBOO'? 0800 

ENTER THE NUMBER OF [IOUf«S PER DAY TO SCHEIlULET B 

THE FILE NrtML yiLL BE UWIrArt);! AS f'AFR 

ENTER THE RESOURCE!! 10 Jft INl^LUnEJ) IN THE KILE 

JUST PRtSS THE RETUFiN ■ WHEN FINXEHED 

T MACHINE TYPE 1 
T NflCHINE TYPE 2 
T MACHINE TYPE 3 

T 

FILES rtRE BE rue INITIAL IZED 

F-ROCESSING COMPLETE 

BREAK IN 430 
OK 

RUN 'UCHESULE* 

ENTER THE MONTH NAME AEEREyiATION I.E. JAN? APR 

THE FOLtQUING OPTIONS ARE AUAILAPLCi 

1, ..IMTIALlZINi; FILES 

2. . .SCHEDULING fJEBOUftCES 
3... PRINTING SCHEDULES 

EWTER THE OPTION NUMBER DESIRED -PRESS RETURN TO STOF'f 2 
SHALL I PRINT FHE REfJOURliES IN THE TILE (V OS N>? Y 

Nut; ReqourCe 

1 MACHINE TYPE 1 

2 MACHINL TYPE :J 

3 MACHINE TYPE 3 

SHALL I PRINT THE HECORU (Y OR N>? N 

ENTER THE MACHINE NUMBER TO BE SCHEDULED -RETURN TIJ STOP? 1 

ENTER THE DAT TO BE SCHEIlULEtl? J 

ENTER TW. umitf rij SCHt-.mi.t flNll (HE TAIJK 1,F OOOUr I'ASKJ ? OBOOcTASK 1 

ENTER THE MACHINE NUMBER To BE SCHEDULED -KETURN TO STOP? 2 

ENTER THE BAY TO BE SCHFIiULEU? 1 

ENTER THE HOUR TD SCHEDULE ANIl THE TASK t.E OBOO r TAUKJ? OVOOrlASfS S 

ENTER THE MACHINE NUMBER TO BE SCHECULED -RfTURN TO STOP? 1 

ENTER THE DAY TO BE SCHEDULED? 2 

ENTER THE HOUR TO BCllEDULe AND THE TASK I.E OlDOOfTABKl? HOOrlASK ,1 

ENTER THE MACHINE NUMBER TO BE (SCHEDUi.rp -RETURN TO STOP? 2 

KNTEF: THE DAT TO L'E ECHEDULED7 K 

ENTF.ft THE HUUR TO SCHEDULE AND THE TrtSK I.E OaOO.Tflgia? 1000) TASK 4 

ENTER THE MACHINE NUMBER TO BE nCHEDULED -RETURN iD STOP? 

PROCESSING CDhPLETE 

BREAK IN 430 
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RUN 'SCHEDULE' 

ENTES THE MUNTH NAME ABBREUiftTION I.e. JrtN? Apt; 

THE KOLLOMIMG DTTItWH ARIi AVAILABLE! 

i...iNrTiAn:;[Ni) ra.Es 

2, , .SCHEDULING RESOURCES 
3. . .F'RINTIMG SCHEDULES 

ENTER THE UPTIDN NUMHKR IlESIIREll -PRESEi RETIJHW TO STOPT 3 

SHALL 1 PRINT THE REsnURCE TA6LE (Y IIR N)t M 

SHALL I TRINi rtLL RESOURCf.S (V OR N)? r 

ENTER THE I'lRGT AND lAHl UAY TH BE PRINItll I.E. If 1(1? 1 t i' 

COMBJNED SCHEDULE 1 APR 
HCH 300 900 1000 llOO laoo liOO J400 1300 

1 TftSR 1 

2 TAUK 2 

3 

COh&IflED SCHEIJULE 2 APR 
MCH SOO 900 100(1 ilOO 1200 1300 1-100 1500 

1 TrtBK 3 

3 TftSK 4 

3 

RROCESSING COMPLETE 

BREAI^ IN 430 
OK 



RUN 'SCWEDULE' 

ENTER THE MONTH NAME ABBREOIATION I.E. JAN? APR 

THE FOLLOWING QPTIONii ARE AWrtlLABLE! 
i., .INITlALIZ^MB FILES 
2. . iSCHEDJLING resuurces 

3. . .P-RINTINE SCHEPULES 

ENTER THE OPTION NUMBER nESIREC -PRESS RETURN TO STOP? 3 
SHALL I PRJNT tHE HESOURCE TABLE (Y DR N)? Y 

NBR RESOURCE 

1 MACHINE TrpE 1 

2 MACHINE TYPE 2 

3 MACHINE TYPE 3 

SHALL I PRINT rtLL RESOURCES (V OR N)t M 

ENTER THE FIRST ANB LAST DAY TO PE PRINTED IiE. 1 ■ tO' lr4 

ENTER THE MACHINE NUMBER TD BE PRINTED ~ TD BTUP? 1 
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flPiCHINE TYPE 1 SCHEUULE 1 ftPR 

DAY eoo 700 looo uoo 1200 ijioo tAoo 0,00 

1 TftSK 1 



TASK 3 



ENTER THE MACHINE NUMBER TO BE FRINTEn - TO STOPr 



PROCESSING COMPUETE 



frfiEflK tU ^30 
OK 



hAJOR SYMBOL TABLE - SCHEDULE 



I NAHE 

1 

I 
I 
I 
I 
I 
I 
I 
J 
I 

r 
jt 

I 
I 

I 

I 

I 
I 
I 

I 

I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 



DESCRIPTION 



ft* 

Alt 

D 

0* 

Dl 

F« 

H 

H« 

HO 

HI 

Hit 

H3 

H3 

I 

II 

J 

JO 

Jl 

K 

n 
n* 

Ml* 

M3 

ni 

o 
p»( > 

S 

s* 



t^NSUER UARIABLE 

rtWSUER VARIABLE 

DAY OF THE MONTH 

CHARACieU REf'RESENTATION DF D 

NUMBER OF DAYS IN THE MONTH 

FILE NAME 

NUMBER OF HOURS SHEDULED IN FILE 

CHARACTER REPRESENT flTION OF H 

MAXIMUM HOURS STORED IN TILE 

TIME/100 »HUUR NUMBER 

HEAPINB INFORMATION 

HOUR TO Br. SCHEDULED 

ARRAY POSITION FDR SCHEDULE ENTRY 

INDEX AND ARRAY PQ INTER 

INDEX AND ARRAY POINTER 

INDEX AND ARRAY POINTER 

FIRST DAY TO Pf^INI 

LAST DAY TO PRINT 

RECOfiC NUMBER TO DE RESD 

MAXIMUM NUMPER QF RESOURDEStMACHINES) 

ABBREUIATED MONTH NAME 

STANDARD MONTH ABDREVIATIONS 

NUMBER OF REEOUfiCES* MACHINES 1 

NUMBEfi or RECOftpS FOR EACH RESOURCE 

NUM&ER OF RECORDS FOR EACH RESOURCE 

OPTION NUMBER 

PROJECTS SCHEDULED 

NAME OF RESOURCES 

NAME OF fiESOURCE-IN FILE 

STflfiTINC HOUR FOR THE SCHEDULE 

CHARACTER REPRESENTATION OF S 

LINE OF ASTERISKS 

DUMMY VARIABLE 



njNCTIOMS 


USED 






I NAME 








1 TAB 




I OPEN 




I CLOSE 




I GOSUE 




I RETURN 




I DIM 




I CVI 




I GET 




J PUT 




I LBET 




I MKI* 




I LEFT* 




I INT 




I FIEt.J 




I 


1 
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Job Routing 

Program Name: JOBROUT 

This program performs all functions necessary' to maintain a ran- 
dom-access disk file containing job-routing information for multiple 
products. The individual processes and tasks to be performed for the 
completion of any project can be entered into the file and recalled 
whenever required. 

To execute this program, the operator need only respond to the 
program messages (Fig. 8-5). When a product number that does not exist 
in the file is entered, the operator has the option of adding it to the file, 
printing it, and/or storing the routing information. If it is found to exist 
in the file already, the operator has the option of printing it anyway or 
deleting it. 



OPERATOR 
RESPONSES 



ROuriNG 



k .,- 



_^-l 



ROUTING 

FILf 



V. 



~7 

I 



A 



j_j: 



JOB BOUT 



I '- 1 

LIST OF I 

pfiOQUcrj I 

IN FILE J 



/ 7 

' UPftiTEC / 
f ROUTINC « 
\ FILE \ 



Fig. S-S OpJeration of the job routing ftrograrti 

One random-access fiLe is used by the program. Its name is defined 
by the operator; its concents arc shown in Fig. 8-6. 

















Mext 


Typical 


Process 


De- 


Proeass 


Db- 


I'rocess 


De- 


record 


record 


code 


scription 


code 


Bciiption 


code 


scription 


no. 


Product 
















Next 


mftfitAf 


Record 


Producl 


Product 


Process 


Da. 


Process 


De 


recard 


record 


code 


number 


nxtin 


cod« 


icription 


code 


scription 


no. 



TSd) P0$ P2$ T$(2| F1S(2| T${3> 

FISH) 

Fig- fi-fi Record format 



F1$(31 



N$ 



5 CLEAR900 

10 REM SAVED fit JOBROUT 

20 REM JOB BOUTIJMD PROBRftM 

30 REM t**tt*i(tt*******)^1t***********ift***t*t****tittti**t*titt* 

■to N=50 

SO DIM R2»(M),D*(M) 

60 DIM T«(3),F1«(3) 

65 CLS 

70 xt"" ******* t*t**tttt*»t*t*T(fi tilt ttt*^**^**iit>t*»ytt»ttxntt gilt*" 

BO PRINT "ENTEFf THE NAME OF THE RDUTIHB FILE"! 

90 INPUT F* 

lOv GOSUB i30 'FILE OPEN 

110 MO^LOFd) 

as IF |-I0=<> THEN MO=i 

120 DIM PIK (MO) .S(MO> 

130 QOSUB 720 'TABLE BUILD 

140 PRINT "ENTER PRODUCT MUMBER"j 

150 p»="" 

lAO INPUT P» 

1 70 IF P*="" THEN 530 

ISO IF LEN(P«)<S THEN P*=3P«+'^ " e GOTO ISO 

190 FDR 1=1 TO Ml 

200 IF P«=P1*(IS THEN 370 

310 ME>!T J 

220 P-RINT "PRODUCT NOT IN FILE - DO ¥QU WISH TO COMTINUE iV OR N)"; 

230 INPJT 6* 

240 IF LEFT* ifl«, n<; >"V" THEN MO 

260 REM FRODUCT NOT FDUWD 

270 REM *»**** + *** + !t:f* + *H**** + *t* + ****t* + *»* + ***t**!****t + *<ft*** 

ESO GOSUB JA30 'ENTER INFD 

2'Ji:i PRINT "SHALL I PLACE THE PRDDIJCT IN THE FILE (Y OP N)"i 

300 INPUT St 

310 IF LEFT*(fl*, 1)~"V" THEN BDEUB 1030 'FILE WRITE 

320 PRIMT "SHfil.L I PRINT THE JOB ROUTING (Y OR N) " ; 

330 INPUT e* 

340 :f LEFT*(A*, U="V" THEW 6(5SUB 1S50 -FOBMATTED PRINT 

350 BDTa 140 

360 REM **tt**t*******tt**1ft****»tt***ii*t*t***t**ilt*titt*tiH*it 

370 REM PRODUCT FOUND 

390 RRM t**il.*****1l.t***tl.t1l*tt****iHI.-H*ll*tlt******t**********»t*il* 

390 PRIMT "PRODUCT FOUND ~ SHALL I PRINT IT <V Dft H) " ', 

400 INPUT ft* 

410 IF LEFTKA*, l>f,>"N" THEN 4iiO 

420 PRINT "SHALL I DELETE IT <Y OR N>"; 

430 INPUT ft* 

440 IF LEFT4(ft«, !>="¥■' THEN BDSUB 2050 'DELETE PRODUCT 

4S<1 BOTO 140 

460 PRINT 

470 PRINT "POaiTION PAPER NOW" | 

4S0 INPUT A*. 

490 K=S(I) 

500 GDBUB 1340 'PRINT ROUTING 

510 BOTO 140 

S20 REM *1l**t*ttii:t**it*ttt*tHt^ttt**i'lril**it*t*t-'l****t*****^****if 

530 REM PROSRAM TERMINATION POINT 

S40 REM **-^***-***t***t***1t**»t***»****tli*****it***xtlf**lflHf***** 

550 LSET T't(l) = " " 

360 LHET N»iMKI*fLS 

570 PUT*1. 1 

590 CLOSE 3 

590 PRIMT 

too PRINT "PRDCESBING COHPLETE" 

ilO PRINT 

620 STOP 

630 fiEM ********lii***$ii!ll***t*******t*****»************ill****lt*tX 

640 REM FIl.F OPEN AND DEFINE 

6S0 REM **^'(**^******1lt**ttt**t***t**it****t**Jit***litlt*IH(*t*:>.*t 

660 OPEN "R", a,F* 



hlO FDR I-l TD 3 

6aO FIELD l,a-ll*42 ttSS )ll*,2 rtS "r*il>.40 fiSi Kl«<I> 

670 NEKT I 

700 Fr^LD 1,2 fiB )(1*,8 ftS F-i>*,3£ AS PS».H4 As ?!lt,2 AS N* 

710 RETURN 

720 fitEh *»*»«»*»*»**«******«***»«**»********«***«**«*******«* 

730 ftF-M WULD PUDDUCT TABI.F 

740 REM |#»4!il<*«:t^**4!*itit*»:>»«**>|i«tt<<^**ili'»t*t>T**«^*it^^tt»)|i*t»!li*it 

750 J = l 

7ACi FOR K-1. TO MO 

770 IF K:>L0F<1) then B40 

790 COSUB 970 'FILE READ 

790 IF T«(l><>"* ■' THEW 030 

800 P1*!J>-P0* 

810 5(J)=K 

820 j=a+i 

330 NEXT K 

e4<i m==j- 1 

850 PRINT TABf.-i) ;Ml! "PROmiCTS ARE TfJ THE FILE" 

360 PRINT "SHALL I PRIWT A LIST OF ALL PRDDUCTS lY OR M)"; 

870 INPUT fl» 

880 IF L.EFT»(ft*!, 1>-"Y" THEN GOSUB 2250 'PRODUCT LIST 

890 REM ***»*»*» INITIAL12e L.AST RECDftD COUMTER «tt*«****« + t 

vao L=l 

•flu IF Ml^O THEN 930 

920 K=l 

930 EKJSUB 9B0 TrLE REftD 

940 t=CWI (N«) 

9SO PRINt 

9hO RETURN 

970 REM *******it**t***!*********Jt*.**t**t****t*****t*********** 

■JBO rem FILE Rt^ftD 

ffQ REM **«**«*********t«*«***Jt;*«l|[**»'*S**********«****«**tllr*« 

1000 (3ET#1.K 

lOlO RETURN 

1020 REM *t.%-».**il%t1l*-ll.*-li-ll*%*1.t-»**t**-lt*1ll*.t*t.*t*t.*t1l***-lt*t***1t%* 

1030 REM FILE WRITE 

1040 REN %%%-3ttll.-lt-tt**%*M*ti**it%>l.'ll%.t^*1t~%tt*1it.%'».**%'ll.1>.t%».1l.til.'li*>l.'ll.ll 

lOSO M4=M3/'3 

lOAO IF M4e;>IMT<M4> THEN M4=INr(M4+lJ 

1070 N=0 

loao K=2 

lOiJO FOR I=M4 TO 1 STEP -1 

llOO FOR J=K TD LOF(I> 

1 1 lO K=J 

1120 IF J=L0F;1! THEN 1 J iO 

I ISO IP J=L+1 THEW lliO 

1140 80SLI& 960 'FILE REfiQ 

1150 3F T*U)<>" " THEN 1210 

1160 FOB Ji=l TO 3 

1170 LSET T«(J1 )=r!Et( (I-l ) *3-*J1i 

liao LSET F1*<J)>=D*( (I-1J*3+J1> 

1170 NEXT Jl 

12O0 SOTO 1230 

121 O NEXT J 

1220 IF J.:L then t2S0 

1230 L=L+1 

1240 ,J=L 

1250 K=J 

12fcO LSET N«bMKI»(N> 

1270 N=K 

1230 IF T*(l><;>"* " THEN 1310 
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129i:i LSET PO*=P« 

1300 LSET P2*=N3* 
1310 PDT*1,K 
iS20 NEXT I 

1330 RETURW 

iS^O REM **t«ir*****»i|(**«***t*i**«**«*«***«*«**************t*** 

1350 REH PRINT ROUTING 

l-7C> J 1=0 

1330 LPRIMT >!* 

l^^C" LPRINT " " 

1^C"5 IF («=0 THEN 13S0 

1410 QOSUB VBO 'FIL.fc READ 

11)20 W^CVl (N*) 

t43ll rOft I I=.l TO 3 

1440 IF T4tIl)="ST" THEN 1570 

1450 IF T*(ll>iV"* " THEN L.PRINT TAB (2! ; ,! 1 ! TAB 112> ;T» ( 1 1 > ; TPiB (20) :F1* 1 1 1 ) 

1460 IF T*(II)<>"« ■' THEN 1510 

1470 LFRIMT "PRQOUCT " ? PD«; -me (20) : PZS 

148i:i LPRINT " " 

1490 LPRINT "STEP «";TAB(1C.) i"PROCESf5"5TftB<22) S "rfiSKfB}" 

ISOCt LPRINT " ";TflB( tO) ; " ";TflB(20)i " " 

1510 R2*(Jt>=T*<Il > 

1320 I>t<Jl)=Fl*(Il> 

ti330 Jl=Jl+l 

1540 NEXT I i 

1S50 K=N 

IH60 GOTO 1400 

1570 LPRIMT ■■ '■ 

I580 M3=J1-1 

X'S'iO LPT5IWT )t» 

1400 LPRINT ■■ " 

1610 LPRINT " " 

16J0 RETURN 

lii30 REM *ti^**t***.3lt*t4tt»t^ttttti****>l»*-*ll*****tt**ttfli:'^ttttil*>tii: 

1A40 REM ENTER NEW PRODUCT INFORMATION 

1660 PRINT "EWTER PROCUCT NfsME"|i 

li70 INPUT M2* 

1660 PRINT "ENTER BDUTINB CODE, PftOCEBS DESCRIPTION - RETURN WHEN RONE" 

1690 R2*<1)="'t " 

1700 LSET POt=^P* 

1710 FDR I=? TO M 

1720 ft2*tl)-"" 

i73u INPUT B'J4 as ,r>sa> 

1740 IE R2*< !>=■■■■■ THEN 17^0 

1750 NEXT I 

1760 M3=I"1 

1770 REM ************** PRINT/WESIFV **«!(**«»***»***»****«*** 

1780 PRINT 

17VO PRINT "PRnCEBS PUMCTIDN PERFORMED" 

1000 FOR 1*^2 TO M3 

IHIO PRINT TABtS) ;R2*(I) ;TfiB( 101 ;0* ( [ > 

1S20 NEXT I 

JB30 PR I Ml 

la+O RETURht 

1050 REM Jtt**)ttt*t********t*:t*t«*tt»*t*tt»***t*#*<t**t*.*****)t* 

iai.0 REM r-ORMATTfD PRINT 

1B70 REM *-t***«#1l*«***»*.*lll»****** + )Ht*************lli***»*Hi*t*lllt 

IBBO Jl=l 

1890 PRINT "POfJITinN PAPER NCW; 

1900 INPUT fl* 

1910 LPRINT X» 

19?0 LPRINT " " 
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1930 LPRINT "PRODUCT " ; PO»j TAB (2U) ! P2» 

1940 LPRINT " " 

1950 LPRINT "STEP #"; TAB ( lO) ; "PROCESS" ; T*^B (22) ; "TASK (H) " 

1960 LPRINT " "jTABUOJ; " "iTflB(2C>) ; " " 

1970 FOR 1='2 TO M3 

1980 LPRINT TftEi<2> ; I-l sTABflE) sR2*<T > ( TABi20) !D*( r> 

1990 NE>;r I 

2000 LPRIWT " " 

2010 LPRINT y.* 

2020 LPRIMT " " 

2030 LPRINT " " 

2040 RETUftM 

705O REn t1f!^t**il*tt**.i**it>t***ilttt>^il.AtllHHmi.t***'t*>HlttlHfir.t*itti>4* 

2040 REM DELETE PRO DUCT 

2070 REM lttilZ**t1llli,*.****t-titttt»*til*ttttltt*tt'*Kl.t*t*t*Ttt***it*i>H. 

2080 «*="'■ 

2090 PRINT "ARF VOU CERTfllM THAT VOII UftNT TO DELETE ■■;P1*(I>;" <Y OR hi)' 

21O0 INPUT ft* 

2110 IF l.eFT»<A*, »><>"Y" THEN 2210 

2120 K-S(I) 

2130 GDSUB 930 'FILE READ 

2140 N=cyi <NS) 

2150 FDR 1=1 TD 3 

2160 LSET T*<I)=" " 

2170 LSET F1*(I)=" " 

2100 NE)iT I 

2190 LSET N*=HKI»<0) 

2200 PUT#1,K 

2210 IF H<--0 THEM 2240 

3220 K=N 

2230 GOTO 21 SO 

2240 RETURN 

2250 REM t***»t**t**if*****t**>>*t******t*ii********t*tti*-t**ii-t*** 

2260 REM PRODUCT LIST 

2280 PRINT 

2290 PRINT X* 

2300 PRINT 

2310 PRINT " PRODUCT REC »t" 

2320 PRINT 

2330 FOR I^^l TO Ml 

2340 PRINT P1*(I) ;TftBU2J;S(I) 

2350 NEXT I 

2360 PRINT 

2370 PRINT >;* 

2380 RETURN 



SUM "JOBRatlT" 

ENTER the: name: UF THt ftGUTlNli FiLEt ftQUTFILE 

pftGDUCTS ARE IN THE FILE 
SHftLL I PRIWT rt LIST QF ALL PRODUCTS (Y OR N>T U 

ENTEW PRdllUCT NUMBEHT 1122 

PRUDUKl NOT IN III.E - TU fUtJ WISH FO CONTINUE (T OR N3? T 

ENTER PRDDUr.T NAME? EUPEK UIDQET - GOLD 

ENTER ROUTING CODE. PROCEBU [lESCRIPTION -RETURN WHf.N UONE 

V A.f-ROCEES AT WflCHINE *1 

? B.PRQCESS AT MACHINE t3 

? AiSECDHD PROCESS OH HflCMtHS *1 

? 
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FRQCESS FUNCTION PERrOHMEO 

ft PR[lt;ESS AT MAChflNE ♦! 

D PROCESS AT MflCHINE *2 

A SECOND f'fiOCESE ON MACHINE tl 

SHALL I PLACE THE f-KODiJCT IN THE. f-lLtl (Y OR N)r Y 

SI+ftLL 3 PRINT THE JOB ROUTING <T OR M)'f U 

EWTER PRODUCT NUMBERr 3344 

PROBUCT MOT IN FILE - DO YOU WISH T(J CONTINUE (Y OR W)? f 

EWTER PRODUCT MAME? U-TYPE WIDGET 

EhUER ROUTING CODEiPRDCeas DESCRIPTION -RETURN UHEN DONE 

? CfPROCESS AT MACHINE *3 

? OrpROCESS AT MACHINE *1 

? 3. SPECIAL PAINT APPLICrtTIOM 

? E.yARNIBH STAND 



PROCESS FUMCTIDM PERFORMED 

r, PROCESS AT MACHINe *3 

D PROCESS AT MACHINE «4 

3 SPECIAL PJ^IWI APPLICATION 

E UftRWISH STANL 

SHALL I PLACE THE PRODUUT IN THE FILE (Y OR NJ? r 
SHALL I PRINT THE JOB ROUTING (Y OK N ) V Y 
POSITION PAPEfi fJOWT 

PRODUCT 3344 U-TVPE UIDCET 
STEP ♦ FROCESa TASKtS> 



1 C PROCESS Al MACHINE 43 

2 D PROCESS AT MACHINE *4 

3 3 SPECIfiL PAIMT APPLICATION 
A Z VAUNIStl STAND 

ENTER PRODUCT NUMPER? 

PROCESSING COMPLETE 

IHREAR IN 620 
OK 



RUW ■JOBfiOUT" 

ENTER THE NAME OF THE ROUTING FILE? ROUTFILE 

3 PRUrUCTS ARE IN THE FILE 
SHALL 1 PRINT A LIST OF ALL PRODUCTS £Y tft N>T N 

eWTER PROUUCT MUMEER? 3344 

PRQDUC1 fOUND -SHALL I PRINT IT (V 01^ W?' V 

POSITION PAPER NOW? 
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STEP # PROtESS 
1 c 



U-TTce WIJJGEI 

PROCESS AT MACHINE t^ 
TKOCESS «T MACHINE f> 
SPECIAL PAIMT APPL.tCflTION 
y^ilRNISH ST AMD 



;« « itwit** IF « 1 X Kilt « X IF ):^i|i i|i « itiili * * 4:it* It It m* * 4;it * It 4(!lc « * It *tit:li * It *D:!t# i|i 1^ III It iifcilr**;^ It !t 



ENTER PRODUCT MUMEER? 11^3 

PROnUCT FOUND -EMALL I PRINT IT tY OR N)7 N 

SHrtLL I DELETE ir (Y QR tiff Y 

rtRE rOU CERTAIN THAT YOU WANT TO DELETE 112;; 

ENTER PRODUCT NUMBER? 



it OK »>y r 



PROCESSING CDHPLETE 



BREAK IN 620 
OK 



SYMBOL TABLE - JOBROUT 
,, DESCRIPTION 



I N^ME 

I 

I At ,. INPUT ANGUER VARIABLE 

I D«<) ,. DESCRIFTION OF PROCESS ARRAY 

IP* . . pile: MAHK 

I Fl*() .. PROCESS IlESCRIPTIUN - IN FILE 

II ,, INDEX AND SRRftT FDINTER 
I 11 ., INDEX AND flRRftr POINTER 
1 J .. INDEX fSND ARRAY POINTER 
I Jl , , INDEX AND ARRAY POINTER 
IK , . RECORD « TU BE FiKAD 

I L , , LA3T RECORD * USED 

I L0F<1)., LAST RECORD NUMBER Or FILE 1 

I M ..MAX NOMPER OF STOPS (PROCESSES) PER JOB 

I MO .. MAXIMUM MUMEER QF PftQDUCTS IN FILE 

I Ml .. MUMDER Of" PKODOCTE IN FILE 

I M3 , . NUHBER Of PfiOCtSSLS ENTERKE 

I MJ| . . NUHBER OF RECORDS TO BE WRITTEN 

IN .. NEXT RECORD MUMPER 

I Nt ., CHARACTER STRING DF NEXT RECORD « 

I W2t . . INPUT PRODUCT NAME 

IP* . . INPUT PRODUCT NAME 

I FOt ,. PRODUCT NUMBER - IN FILE 

I Pl*<> .. PRODUCT NAME f^RKAY 

I P2* ,. PRODUCT NAME - IN FILE 

I R:*< > ,. PROCESS (STOP) CODE f^RRAY 

1 S( f .. PRODUCT RECORD t ARRAY 

I Tt<? .. PROCESS CODE ~ IN FILE 

IX* .. line: of ASIERISKS 

I Xl# .. DUMMY Ul^RIABLE 



FUNCTIONS USED 
I 1 

I NAME t 

J J 



I DIM 




1 GOSU* 




I PUT 




I GET 




1 KEIURM 




I C^JI 




1 Mm» 




I TAB 




1 INT 




1 LSET 




I LEM 




I FIELD 




I SPACE* 




3 OPFN 




I U)F(1> 




n 
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Equipment Maintenance ScheduJing 

Program Name: MAINT 

This program uses sequential file handling to perform a)) required 
functions for the recording, updating, and display of scheduled mainte- 
nance on machines and other equipment. It will be useful both to rhe 
small production shop and to other businesses concerned with equip- 
ment maintenance. 

The program is controlled by the operator's responses to program 
messages. The first time the program is executed (or when deleuon of iill 
previous entries is desired), the operator must answer "Y" to the 
question, "ARE YOU INITIALIZING THE SYSTEM (Y OR N)?" Once 
the system has been initialized, four options are available through key- 
board selection: 

Option 1 allows a formatted print of the current contents of the 
file. 

Option 2 allows the printing of all maintenance scheduled for a 
specified date. 

Option 3 allows the printing of all maintenance scheduled for 
a specified machine. 

Option 4 allows the entry and update of maintenance information 
in the file. Individual records can be inserted (code I), deleted (code D), 
or changed {code C), The insert code requests record information from 
the operator a.nd then mserts it after the current record position. The 
delete code causes the current input record (from the input file) not to 
be written to the output file. The change code replaces the current input 
record with the new information requested from the operator. 

Figure 8-7 illustrates the program's options. 



I OPTION 1 

1 



I CONTFUTS J 



L. ^- 



I RECOIfS 1 



1_£ 



J T 

|MJllNr£MAKCE,' 



MAEMEIWMCE 



foPTJoiil" 
j 1 

MWNTENANCE I 

riSKsar i 

J MTE J 



fopfioSV 

I — — 1 

^lAlNTE^Aw;E i 

145ICS BY I 

hiaCHINf J 



t OPTION 4 

I 7 

'HIV ( 

I MAIMENANCEI 
\ FILE 1 

s 1 



Fig. ft-? Op^sijon of the equipment jDaintenafice scht^duling program 
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Two sequential files Jire used by this program, one for input and the 
second for output. Requesting Option 4 (updating files) creates an out- 
put file containing the new records. Depending on the action codes 
specified by the operator, the records from the input file will be written 
to the new file in sequential order, replaced by a new record, or ignored 
and therefore no: written to the new file. The format of the files is 
shown in Fig, S-S. 

Comment: The use of sequential files in this manner allows files 
to be recovered by stepping back to a previous file and processing only 
the updates to it. 







Mainte- 


Mainie- 


Date 


Frequen. 








Machine 


nance 


nance 


lait 


cy ifl 


Mumber o1 


Sub-las li 


* 


name 


code 


title 


done 


davs 


sub.tasks 


names 


Tt 


M$ 


C$ 


Ml$ 


D$ 


D 


N 


SSI) 
Occurs H tiitres 



Fig. ft.fi Record format 



5 CLEAR 900 

lO REM SAVED ST MftlMT 

20 REM MAINTENANCE SCHEDLILIMG PftOSRRM 

45 CL.S 

3Ci M-2S 

to M2=iOLli>C 

70 DIM S*(M) ,Dr5(i2) 

SO FDR I-l TO 12 

TO REAI> DO(E) 

100 NEXT I 

llij DftTft 31,28,31,30, 31, 30, 31, 31,30,31, 30, 31 

['M F-ftINT ■ENTKR TODAV'S MTE MM/DD/YY''; 

130 INPUT DO* 

110 PRINT 

i:50 PRINT 

160 PftENT "SRE YOU INITIALIZING THE SYSTEM (V DR N)"; 

170 INPUT fll* 

ISO IF LEFT»(Al«, IX >■•¥" THEN 2AO 

190 Flt="MULL" 

200 GtlSUB 1710 'OPEN' OUTPUT 

210 CLOSE 2 

220 F*=F1* 

230 GOTO 2iO 

2J|0 PRINT "ENTER THE MflME OF THE tIfllNTEMfiNCie FILE"; 

250 INPUT F« 

£40 G03UB L600 'OPEN INPJT 

270 PRINT 

2ao PRFNT >i* 

2'!0 PRINT 

300 PRINT "THE FOLLOWING OPTIONS ARE AVHiLflBLE:" 

^10 PRINT 

320 PRINT TfiB tS) ! "1. . CURRENT FILE CONTENTS" 

S30 PRINT TfiBtSl s ";i, ,MAItJTPNftNCE TASK LIST - SPECIFIC DATE" 

340 PRINT TAB (5); "3.. MAINTENANCE SCHEDULE - BY MACHINE" 
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3SO P'RItJT " " 

360 PRINT T(^B(5))''t. -UPDATE FILES" 

370 PRINT 

JSO PRJWT "ENTEh- OPTIOW MUHEER"; 

3W; 0=0 

400 INPUT D 

4 to IF 0=i THEN GOSUB 370 

420 IF 0=:; THEN BOSUe 7WJ 'DATE l.IftT 

430 IF 0=3 THEN aoSUB 1O70 ' MACHINE SCHEDULE 

440 IF 0=4 THEN GOSUB 1310 'UPDATE FILES 

450 CI.DSE 

460 IF 0>-4 THEN 490 

470 IF CKiO THFN 260 

480 REM ****************************************************** 

4TO REM PROCjRflH TE.RHiNhTUJN PI.UnT 

510 c:ls 

a20 PRINT 

53C' PRINT "PROCESSIKB COMPLETE" 

540 PRINT 

530 STOP 

560 REM *****»**«»***»******»»«***************«**■*****«*«**** 

SrO REM PRINT CURRENT CONTENTS 

SSO REM *.*****5ll*«#**«»llltt**«t*K*******»«*«**l(****t»***ll*****!|l 

590 PRINT "POSITION PAPER NOW"; 

iOO IMPUT Alt 

tlO LPRINT '■ " 

i20 K=l 

630 LPRINT " " 

640 LPRIMT X* 

i30 LPRINT " " 

LiiO LPRINT TftB(10>; "CURREHT HAINTENftNCE FILE CONTENTS" 

670 LPftrMT " " 

680 LPRINT "»"5TSB<3);"MACHINR"iTB,FH12>; "MftltMT CODE" j TftB <30> ; "MftINT" j 

69i:i LPRINT TAB (45); "LAST DATE" ; Tf>6 (SSJ ; "FREQUENCV" 

TOO LPRINT " — ";T*IB<I2);" "iTftBl25);" 

710 LPRINT TflB<43);" ";TAB(55);" " 

720 LPRINT " " 

730 IF E0F(1> THEN 770 

740 QOSUB E30O 'READ RECORD 

750 SDSUB 1750 'PRINT RECORD 

7(10 13OT0 730 

770 RETURN 

■.'BO REM ♦**»****«**»***«***«««**»**«***«**»;*!(«****«*«**«**««*» 

790 REM DATE LIST 

§00 REM *.'*.'k■*■l^■l^*■^■l^^^^*^t■k^(%i^|■l^•^^^ll*i^i**^Hf*^»■^t^f*^^^>*^'f■^l^^ltmt^■iH^^lHH^lHt1^■^^^^^ 

eiO PRINT "EMTER THE DATE TO BE PRINTEU"; 

920 INPUT D* 

830 eosUB ^530 -DECODE MTE 

SAO M9-M1 

350 I>9=D1 

B60 yj'Yl 

370 PRINT "PPSlTinN PAPER NOW"; 

sao riviPuT (=1* 

890 1. PR I NT " " 

900 LPRINT X* 

*lu LPRINT " " 

<?20 LPRINT TAB (10) ! "MAINTENANCE LIST FOR " j D» 

930 LPRINT ■' '■ 

<?40 LPRINT TAD(71 ; "CDDK";TAB(tO)3"MHCHIMfJ";TAB(20);"LAST DONE"; 

950 LPftlWT TAB(30); "MAIfJT. TAShr" ; T(!*B (50> ; "DATE ACCOMP. " 

fiAi LpRINl TpiB(2) s " " j TA& IIO) , " " ; TAS t20) 5 " "- 

970 LPRINT TAB (30);" " ; TAIiCSiLO ! " " 

TOO PRINT 

9tO IF EiJF( I i THEN 1 050 
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lOOD GOSUB 2SCP0 'READ RECORD 

1010 BOSLIB 2530 ' DRCODK DATE 

1020 GOSUB 2il0 'FINO NEX1 DftTG 

1030 If" l)2=D9 AND m=M9 ftNC vt=V9 THEN BOSUB 1890 'PRINT RECORD 

1040 SOTO 990 

lOSO RFTURN 

107<:i RErt MACHINE SCHKDIJI.F 

1080 t^l^'M «l«:tt:«lt]t*ll>3|(4l*«i»^*)t4«ll'««');]<«l«***XJ(«*««»«*«3l<«4l»K«*4l««4'4« 

109O PRINT "ENTER THE MACHINE TO BE PRINTED"; 

llOO INPUT mi 

lUt> PRINT "POSITION PAPS:r NOW"; 

1130 INPUT fi* 

1130 LFRtNl 

1140 LPRINT X* 

1150 LPRINT " '■ 

llftO LPRINT T«B(10)! "MAINTENANCE BCHEDULK FUR " ; M* 

U7u LPRINT " " 

HSO I. PRINT TAB(3) ! "MACHINE" !TflB(i2) ;"MftINT CODE" i TAB 130> ; "MAINT" 

ll'?0 LPRINT TrtB(45) ; "LrtST DATE" i TAB f5f)> : "FRfBIJtNCY" 

1200 LPRINT TAB (3) ; ■'—■ '-" ; TAB ( 12> ; " " s TAB (25) ; " 

1210 LPRINT TABt451s" ■ ^-■' ; TAB (3S) ; " " 

1320 IK EDF<1> THEN 1290 

1230 nnsUB 230Q 'REATt RECORD 

1240 eOSUE 2540 'DECDDi; UAIE 

1250 raOSUB 2i,l0 'FIND NE>!T DATE 

1260 D?;*=STR*(M) 1 +'V"«-STRt<02} +"/■••( STR*fVl> 

1270 IF M*?»=t1« THEN BOSUB 1730 'PRINT RECORP 

12B0 GOTO 1220 

12'?0 RETURN 

1300 REM **tll«**»**t***«l|i***»***»*i|l**#*K**ilf**»»*it**»**'(»**iH»** 

1310 RFM UPDATE FILESi 

i:;2o REh t*tttfit***At**t*t*tt**t***i(*t*t'tt»%t^ii**tt*t»fii*tmiimt* 

1330 BOSUB 144,0 'OPEN OUTPUT FILE 

1340 Jl=l 

13S0 PRINT "ENTEIR THE RECORD +t TO PROCESS"; 

13fc0 INPUT Nl 

1370 FOfi J=J1 TO M 

13B0 IF E0F(1> THEN 1420 

1390 eOSUB 230fp ' HEAB RECORD 

1400 IF J<M! THEN GOSUB 2:5<9(:) ^iJFdT!" RECORD 

1410 NEKT J 

1420 Jl=Nl+l 

1450 IF fl*="S" THEN l!i80 

1440 IF EOFdJ THEN PRINT "ftT END~OF-FILE"; 

1450 IF NOT EOFdi THEN PRINT " DELKTE (U> ,CHANBE iC> "; 

1460 PRINT ", INSERT<I), OR QTDP<S!"! 

1470 INFlir fi* 

14ao IF fl«<>"S" THEN 1520 

14'?0 N1 = M2 

1500 IF NOT EDF:1> THEN BOSUB 2390 "WRITE RECORD 

1510 GOTO 1370 

1520 IF AS="D" THEN 1350 

1530 IF A»="l" AND MDT EOF U > THEN GOSUB 2390 'WRITE RECORD 

1540 GOSUB 1990 'ACCEPT INPUT 

1S50 tSOSUB 2390 'WRITE RECORD 

1360 IF E0F<1> THEN 1440 

1570 GOTO 1350 

1580 RETURN 

15'?0 REM +iHt* + ****t***t***tt***t*)|i*t*t.***t**i|!tt****iHi ********* 

1600 REM OPEN AND I>EFIMe INPUT FILES 

1610 REM >t***ill*)l»i:**itL*iilt)HIHI.*)i.*******t*».****H.*****t****tt»ilt***t* 

1620 OPEN '■!", l.F* 

1630 II\IPUT*l,no» 

1A40 RETURN 
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IhSO REM !ll*«***»***»»:****i**t***t***ir**ili«**««*****)f«**********»»^ 

liiO REM DPtN ANO UEFINE OUTPUT FILES 

1£70 REM ;li*i*):i|(*»4:t^»xirit^i|ii^;l|iliit**>l(i*il^*>l<3l<l**il(t*:l<llit*j't«;li:lit«*«t«^*« 

lASC PRINT "ENTER THE NfiME QF THE OUTPUT MAINtENAMCE FILE" 

lft9f' PRINT "*** WARNING *** rHE FILE CONTENTS WILL BE 1>EGTR0YED" 

1700 INPUT Fl* 

17li> OPEN ■•0-',2,Ft* 

1720 PRINTIt2,D0* 

1730 RETURN 

1740 fiES^ )itt****lt*** ************* *********»*******t******t1****lf 

1750 REM PRINT RECORD 

1760 REE^ *tll****t**ttt*****t***tt**fl*t*****lf>^tiHHl************** 

1770 IF 0=1 THEN PRINT Ks 

17SC LPRINT TAW IS) ; MS: TAB ( J'il ;E:*;T«B05) j Ml*; TftB <4S) !D*;T«B(5S) ;D; 

17"50 IF 0=3 THEtit LPRINT TA6C55»iD5*; 

laOO t.FRINT " " 

IBIO K=K+1 

IHHO IF Mi>lj THEN 1 BAO 

laiO FDR lil TO N 

la'lO LPRINT Tftli(27> ;S*n> 

IS50 NEXT I 

1340 LPRINI " " 

1070 RETURN 

ISSO Ren i.'Hi*******!^********-*******^*'************* ************* 

1S90 REM PRINT HATE 1 1ST - SCHEDULE 

1 700 REI1 *t ********** ********t***t**.**4***it»»t*iit***'lir*m>t*t** 

I-JIO LPRINT 1(^B<S) ;C*;TAD{10>jM*;TAri(2fii jDitiTfiSCSti) ; Ml *; TAB (S0> ; " ( 

l<920 IF H>^l} THEN ntJO 

1930 FOR 1=1 TD N 

1940 LPnihtT TA»(301 !S«(I> :TAB(rf52>)"I ) " 

19S0 NEXT I 

1960 LPRINT '■ " 

1970 RETURN 

1 9S0 REM it** tt****ttitit»ini:i^tt*-ittt*t**-**t)i********t*t*»* ****%**** 

1990 REM ACCEPT INPUT 

20OCP REM *****«»««*»******************>* *.**«*****J«****J*t**H* Jr.* 

JOU'i PRINT "ENTER MACHINE NAME"; 

2020 M«-"" 

2030 INPUT M« 

204O IF H»-"" THEN 22SC1 

205O PRINT "ENTER MAINTENANCE CQDE (RETURN FOR NE)!T MACHINE*"! 

2060 C4="" 

?070 INPUT C« 

2OB0 IF Ct-"" THEN 2010 

20^0 PRINT "ENTER THE NANE OF THE MAINTENANCE" s 

2100 INPUT hi* 

2110 PRINT "ENTER DATE LAST ACCOMPLISHED IMM/DD/VYJ"; 

2130 INPUT D* 

2130 M1=VAL(I.EFT«(D*,2j ) 

2140 IF M1<=:12 THEN 2170 

2150 PRINT "INCORRECT DATE FORMAT" 

aiiO GOTO 21 lO 

2170 PRINT "ENTER THE NUMBER OF DAYS BETWEEN ACCOMPLISHMENT"; 

2iaO INPUT n 

2190 PRINT "ENTER THE NUMBER OF MAINTENANCE SUBTASKS TU HE ReCORCEQ"; 

i£00 N=0 

2210 INPUT N 

2220 IF N=0 THEN 22B0 

2230 PRINT "ENTER THE INDIVIDUAL SUBTASKS NOW" 

2240 FOR I-l TO N 

22fv0 PRINT 1; ■'. . . "; 

2260 INPUT S* [D 

Z270 NEXT I 

2280 RETURN 
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2290 R(^H ■Mi*»:*x*lttt:************tlHH***iHt***tt*t********t't*** 

230i> RFM REftO Rf^CORft 

2310 Rf:H *****i*****t****t**»***t* + t»«**i* + i!i****t******* + *l* 

2320 INPLn«l , T*,t1*,r;i;,ril*,D*,DjN 

E330 IF N=0 VHEN 2370 

^340 FDR 1=1 TD N 

2350 INPUT#1,S*(I) 

2370 RETURM 

23B0 REM t*a******»-iitiHi***tlf1tt*t*****iH*4***4t*^*i*1:****t*l(t 

23 90 REM WRITE RECGRD 

2400 RFM lt.t***^^t*)^it•J^t**%t**1^tt*:lltttt***)l***l^*t»l^**)^****.tt.*x* 

2410 PRINT#i:, '■*■■ 

2420 FRINlBS.h* 

E430 PRINT#2,Ct 

2440 PRINTtta.Ml* 

2430 PRINT#2,D* 

24i0 hRJNT)t2,D 

2470 PRINTit2,N 

2+30 IF N=0 THEN ^520 

24'JO FOR 1 = 1 TD N 

E500 PRINT#2,S*( 1 ) 

2310 MEX7 I 

35710 RETl.hRN 

2530 REM «*»»***«»!*«*****«*»******************«*************** 

2S40 REM OFCnilF DATE 

S^SO RRM ■t»ilttllitt1t**tttilt*.t.t1itt-*llliit.*ttt»i:tltt*lfllt%f*****llllt.*tt* 

2560 Ml-VftL(LEFT« (D»,2) > 

2570 Dli^Vftl (mn»(D«,4.21 ) 

25S0 yi=VfiL (RrGHT«<D*,2)) 

25'?0 RKIURW 

2A10 REM FIND NEXT DATE 

2A30 D2=Dl-i-D 

2440 IF D2';"D0(M1> THEN 27iu 

2^S0 D2=D2-D0<hJ) 

26ii0 Mi=Ml + 3 

2i>70 IF l^l<13 THSN 2640 

2iS0 Ml=l 

2A'?0 ri=Vli-l 

2700 BtlTD 2640 

2710 RETURN 



RUN 'MftlNT" 

ENTER TOnAy^E D(^TE MM/DC/lfYT 02/2n/Ql 



(!(RE rOU INITIflLIZIMO THE SYSTEM '.Y QIV NJT r 
THE FOLLOyiNG GfTIONS AftE AVfllLAhLE; 



1.. CURRENT FILE imNTEWTS 

2,.MAlNTENflfJCE T^BK LIST - SfECIFIC D^TE 

3. .MmNTENftNCE SCHI=DUL£ - BY MACHINE 



4. .UPDftTE FILES 
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ENTER OPTION NUMilER' ^ 

EMTIJR THE HflME OF THE OUTPUT HAINTEN^iNCE FILE 

*».* WARNING *** THE FILE CONTENTS MIL.L BE IiESTROYED 

7 M-FILE 

ENTER THE RECORD » TD f TJQCESS? 1 

rtT END-OP -FILEr INSERT(I)f OR STOP (SIT I 

ENTER MACHINE NflMET MftCHrNE 1 

ENTER MAINTENftNCE CDDE (RETURN FOR NEXT MACHINE >T A 

ENTER THE NAME OF THE MrtlNTEMANCE? ANNUAL SERVICE 

ENTER DATE LAST ACCQMRl.ISKEn (MM/DD/YY > i- 03/01 /SO 

ENTER IHE NUhSEi^ OF Vf^lS tETUEEN flLCUHPLISHHtNT? 3i5 

ENTER THi; NUrtf-ER OF MrttNT^MrtWce SUfTfiSKS To BE R£cOftf£nT 

ENTER THE INDIVIUUflL SUB TASKS NOW 

1 ..,? CHA>JBE BEL t 

2 ,.,? LUBE GEAR 1 

3 ,..T OIL SHAFT 

4 ...? CHANGE miLF 

5 ...7 CLErtW SHELF 

AT ENri-OF-FILEr INStliKI), OR HTOP (S)? S 



PffOCesSINB COMPLETE 



BREAK IN 550 
OK 



HUN "MAIMT- 

ENTER TODAY'S IlflTE MM/DD/Yr? 03/28/01 



ARE YQtJ INlTIflLIZlNO THE SYSTEM <Y OR N)? N 

ENTER THE NAME OF VHE MAINTENANCE FILET M-FILE 

THE FOLLOUINB OPTIONS ARE AyfllLASLE! 

1.. CURRENT FILE CONTENTEI 

3. .MAIMTENrtNCi; TASK LI£IT - SPECIFIC tfiTE 

3. .MAINTENANCE SCHEDULE ~ BY MACHINE 



A. .UPDATE FILES 



ENTtLfi UFTION HUHBER'? 1 
POSITION PAPER NOW? 



CURRENT MAlMTENflNCE FILE CONTENT!! 
» MACHINE MAINT COIiE MAINT L(!tET DATE FREQUENCY 



1 MACHINE 1 A ANNUAL SERVICE 03/01/80 3A5 

CHANSE BELT 
LU6E GEAR I 
OIL GHAFT 
CHAHHE BULB 
CLEAN SHELF 
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tJf ]|(ltk?|^i|()|(!'|(!t fi.)^)K>K 4( iti iV>-4^^i|(it 1^ ^f if !|K Tf )^ )ft if ?itW !(( IfC !f1 ifhJfC '^ if i^¥ f "f T i|4^!fC¥4 "V T !(■ ¥ T ift^r V^K-ifC f !|( ¥ 'f-ifKIK 

THE FOLLOWING nPTlGNS fiRE flUftlLflBLEt 

1.. CURRENT KILE CDNTEMTS 

2..MAINiEMrtMt:E TASK LIST - SPECtFIt; DrtTE 

3. .MAINTENANCE SCHEDULE - fiV MAtNINE 



4., UPDATE FILES 



ENTER OPTION NUMBER? 2 

ENTER THE DATE TO BE PRINTEB? 03/01/31 

POSITION PAPER NOW 

*»*»**¥*****«*****«********♦** ****+**************>« ************* 

MAIMTENANCC LIST FOR 03/01/01 

COBE M^liCmNE LAST DONE MAIMT. TASK DATE ACCHHP. 



A MACHINE I 03/01/QO flNNJBL SEKUICE ( ) 

CHANGE PEL! I) 

LUBE GEAR 1 <> 

OIL SHAFT <) 

CHANBE BULB ! ) 

CLEftN BHELF ( ) 

>lt*t**¥¥**********^*Y***W **************************** ********* 

THE FOLLOWING OPTIONS ARE flWAILflBLt:! 

1.. CURRENT FILE [;GNTENTS 

2.. MAINTENANCE TAMK LIST - SPr'ClFIC DATE 

3,,MAINIENANCE; JiCHEUULE - BV MACHINE 

4.. UPDATE FILES 

ENTER OPTION NUMBERT 3 

ENTER THE MAtHiNE TO HE PkINTEU? flACHINL 1 

POSITION PflfER NtlUT 

t*t*4;*4!**4i**4i4::<:4i**l<^4i^**K^^***>(<:f:1:i|;i|<*^4i4i4<!^i(i^4i;ii4cir*******^******** 

MAINTENANCE SCHEDULE FOR MACHINE 1 

MACHINE MflINT CODE MrtlMT LAST BATE FREGtlJEMCV 

MACHINE i A ANNUAL SERVICE 03/01/80 363 3/ 1/ ai 

CHANGE BELT 
LUBE DEAR 1 
OIL SHAFT 
CHANGE BULB 
CLEAN SHELF 

«^*t ***«********«;***«*****«* **>li*******>ii****it«******]t***«««***** 

THE FOLLOWING OPTIONS SRE flyfllLASLEt 

1.. CURRENT FILE CONTEnTG 

2..MfllMTENANL:E TASI^ LIST - E3PECIF1G BATE 

3.. MAINTENANCE SCHEDULE - BY MACHINE 



4.. UPDATE FILES 
ENTEff OPTIO** NUWFERT 

PROCESSING COMPLETE 
BREftK IN 330 

an 



MAJGR SYMBOL TABLE - MfllNT 



I MAKE 
I 

I Alt 

C* 
I 

DO* 

not) 
ni 

D2 

IIS* 

D? 

Ft 

Fit 

I 

J 

Jl 

K 

n 

Ht 

HI 

H2 

N 
Nl 

a 
ri 

Y9 



DESCRIPTION 



ANSWER UrtRISBLE 

MAIMTENflMUE CODE 

DAYS EETMEEN flCCOMPLTGHHENT 

I'^TE OF LftST j^CCOMPl.ISHHENT 

CURRENT DrtTE 

NUMBER OF DAYS IN ErtCH MONTH 

DfiYE FROK FILE 

UrtTS INTO THK NEJCr HIINTH 

OflTE 01- MEXT iiCMEIlULED ACCOMPLISHMENT 

INPUT VAy FOR CONPAJ^E 

INPUT FILE NAME 

OUTPUT I ILL M**ME 

INBEX ANII ARRAY FDINTER 

INUEX AND ARRrtY POINTRK 

RECORD COUNTER 

CUUNTKK FOR RECtlRDSi 

MAXIMUM MUMBER OF SlJB-TASNS 

MACHINE NAME 

MONTH F-ROM FILE 

Ml^iINrFNANCE TITLE 

MAXIMUM NUMBER OF RECORPS IN FILE 

INPUT MOWTH FHR COMPARE 

NAME or WflCHINE TU PRINT 

NUMBflR OF BUB-TASKS 

RECORD TO PROCESS 

OPTION NUMBER 

SUfi-TAiJK NAMES 

LINE OF ASTERISKS 

YEAR FROM FILE 

INPUT YEAR FOR COMPARE 



FUNCTIONS 


USED 


J 


1 


I NAME 

I 

I DIM 




I GOSUD 




I RETURN 




1 OPEN 




I CLOSE 




I UAL 




I TAB 




I EDFCI) 




I LEFT* 




I PIONTt 




I MID* 




I STR* 




I 


_ ^r 



Production Lot Size Computation 

Program Name: PRODSIZE 

This program computes and prints information conc-erning ideal 
production-lot sizes for inventory items and identifies the costs associ- 
ated with these runs, AH data is entered in response ro program 
prompting. 

Files Affected; None 
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5 CL.EflFi <?C)0 

10 REM SAVED AT PPOUSIZE 

20 REM t^***lt***lt**il**'*»L***ltt^**-1'**ll-***.lt***'H-**i^*^'Hf'il-*>f-*^**t**f*lf 

25 CLE 

30 I'RINT "COMPUTATIOM OF ECiONOMIC PrtODUCTION SIZE" 

40 PRINT "EWTER SET UP COSTS "; 

50 INPtJT S 

60 PRItiH "EMTER USfiGE PER TIME PERIOD "; 

70 IWPUT U 

BO PRINT "EMTER HOLDIMS COSTS PER TIME PERtDD " ; 

90 INPJT H 

100 PRINT "ENTER PRODUCT lOM LEVEL PER TIME PERIOD "; 

HO INPUT P 

IZO PRINT 

130 PRINT ••l^1l^t'Ht^^^H^*ll^tt'^'^*t*'^*■*■'^^*■****■*■****^**■**0'*t■*■*'*1■**'*" 

140 PRINT 

ISO fiRlNT ■' ECQNOMXC PRODUCTION SIZE" 

160 PRINT 

170 PRINT 

180 Q=SGR( (2*a*J>/H>«(l^<SQBll-(ll/P)) ) 1 

I<50 C=3iaR(2*3*U*H)*SQRtl-(U/PJ> 

200 PRINT "PRODUCTION SIZE "; T(iB (20> ;«] "UNITE" 

210 PRINT "COST OF PftODIJOTrON BUN" j TAB (20) ,-"*"; C 

220 PRINT 

230 PRINT "*««»»*»****««**«»«}|l«t«*«t****»l|t****#****«***»*" 

240 REM ***«********«« TERMINATION PDIMT *]«**************«*** 

2S0 PRINT 

260 STOP 



RUN -pROnsiZE' 

COMPUTATION CIF ECOfSONlC PRnUllCTION EIZC 

ENTER SET UP COSTS T 5 

ENTER USAOE PEK TIME PERIOD 7 100 

EMTER HOLDIMB COSTS PER TIME PERIOU ? .4 

ENTER PROCIJCTION LEOEL PER TIME PERIOD ? 500 



ECONDHIC F ADDUCTION SIZE 



PRODUCTION SIZE S5 . VOl V UNITS 

COST OF PRODLFCTinw RUNt ly.seas 



tX***il*itM***if.if.*Stt*-*¥#1l:***««V'******t«****K** 



BKEftK IN ?(40 
DK 



M^^JOR SYMtQL TflBLSi - PRDPSliE 





HflMt 


., DESCRIPTION r 


c 

H 
P 

a 
s 
u 


., COST OF PR0nNCT:ON RUN I 
.. HOLDINCt/CftRftYJNC COSTS PER TIME PERiOB I 
.. PRODUCTION CClPflCITY PER TINE PERIOD I 
.. tJPTIMrtL PRODUCTION LOT SI?E I 
,, SET UP COSTS I 
., USAOE'PER TIME PERIOD I 



FUNCTIONS USED 
I 1 

I NAHE I 
I J 

I TAB J 

I SOR I 

I 2 
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Production Cost Computation No, 1 

Program Name: COST-1 

This program computes the cost of a given production run. Alt 
data is input at the terminal in response to program messages. 

Files Affected: None 

S CLEftR fWi 

10 REM SftVEI> AT COSTl 

20 RlEM *****(******»:***««« PRnCEfiSINR fiREfl ***lt!*«*lt[*****«*m**«lK« 

25 CLS 

30 PRINT 

40 PRIHT "COMPUTES COST OF PRODUCTJOhl QUANTITV 

5fi FftINT 

60 PRINT "ENTER FIXED COSTS "; 

70 INPUT F 

80 PRJNT "EMTER UfiRIABLE COSTS PER UMIT " f 

90 TMPUT V 

100 PRINT "ENTER DUPlNTITV DEsJKiED "f 

llO INPt.IT a 

120 REM «itt»****!|i**»**t*+ CALCULATE COSTS ***«♦** t************ 

130 vt=y*R 

140 c^F+yi 

IS* u=c;/G 

it.o pprNT 

170 PPlNT "HI***************.*******************" 

ISO PRIMT "COST OF PRQDUCIMG '■ i Qj - LIMITS" 

170 PRINT 

200 PRINT "FIXED COSTS" ; TAB (13) ;"»" j F 

210 PRIMT "VARIABLE CDS! S" ; TAB 1 15) ; "«" ; Vl 

220 PRINT '■ " 

230 PRINT "TOTAL COSTS" ! TAB ( IS) ;"«" j C 

240 PRIMT 

250 PRINT "UNIT COST" : TAB ( IS) i "*"; iJf "EACH" 

260 PRIMT "**t«**»;*******«****«***»^*********»:*" 

270 PRIMT 

2S0 REM ******************* TEftMINATIDN POINT ***************** 

SW STOP 



RUN •CDST-l" 

COMPUTES COST OF PRODUCTION OUANTiTY 

ENTER Fixer COSTS '? 20 EO 

ENTER VARIABLE COSTS PER UNIT f 5.15 

EMTER OUflNTITT aESlREP 7 1000 

t******i:^SH:*t*IHf!ll't**Hf**IHil***ll.** 
COST OF PROBUCING 1000 MiTii 

FIXED COSTS * 201,0 
yARIftBl.fc" COGTG * 5iao 

TOTAL COSTS t 7;iOO 

LTNIT COST « 7.2 EACH 

:t!lclli*:**'**^*)litt*tt***lf.***Xt***iili***it: 

BREAK IM 2?0 
OK 
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MAJOR SYMBOL TABLE - COST-1 



tifiHE 


. DESCRIPTION 


C 
F 
D 

U 


. TOTAL COSTS 

. FIXEB COSTS FOft RUN 

, QU(*NTITr DESIftEb 

. UM(T COESrS 

, VflRIflBLE COSTS PER UNIT 

. TOTAL WRIftBLE COSTS 



FUNCTIONS UE£D 

J 

I NAHE 

I TAB 

I 



Productwn Cost Computation No. 2 

Program Name: COS'1-2 

This progiam computes fixed and variable costs for a production 
process when the costs of two production quantities are Isnown. It 
assumes a straight-line relationship of these costs with all costs identi- 
fiable as either fixed or vaxiable. The prc^ram also produces a cost 
breakdown of the two types of costs. 

Fi/es Affected: None 

3 dLEAfi ^oo 

10 REM SAVEU HT COST 2 

20 RFM *«**«««*i|l*****« PROCeSSIWB AREA *** It****************** t 

2S CLS 

30 PRINT 

40 PRINT 

50 PRINT 

<S.O PRINT 

70 PRINT 

SO PRINT 

90 PRINT 

100 intPuT CI, m 

no PRINT 

120 PRINT "EMTEK FOR PRODUCTION mUftWTITV 7." 

130 PRIMT "COSTS AMD QUANTITV (I.E. 2000 , 751X1 >" ; 

140 INPUT n?,na 

150 REM +* + ***;|i*t*i|i*t** CALCULATE COSTS *t*t*t>(:** * + + + *?**** + * 

liO V=(C2-C1) / (Q2~D1) 

17'} F=r;i-v*Q) 

iBO PftlMT 

COST ElREl^KDOUN OF FIXED AND VARIABLE COSTS" 



COMPUTES FlXIib rtNt) VARIABLE COSTS WHKN THE GOsSTS FOft" 
TWO PRODUCT low QUANTITIES APE KMDk^" 



"ENTER FOR PRODUCTION aUANTTTV 1" 
"COSTS OND SUANTITV (I.E. 1300,3000)' 



IM PRINI 
200 PRINT 

210 PRINT 

220 PRINT 

^30 PRINT 

240 PRINT 

250 PRINT 

2feO REM t«*Jt*!ll«»«*tt*1i** rERMINftTlON POINT ««******««****«« 

370 STOP 



"FrXEt> Ci:)STS";TAP ( 13) ; "*";F 

'".lARIftBLE COSTS" s TPlB( 15 J ; "*";V! '■ EACH" 
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kUN -COST-J- 



COMfUTES FIXtP AMD <Jf<lilMi.E COSTS UHt"N THE COSTS FOB 
TUQ PRDCUCTIlM QUAN'riTIf;S I^RE KNOUN 

tNTER FOR FRIljaiJCTiON QUftMTITY 1 

COSTS ANB aUANTITY (I.E. 1500tSOOO)7 ISOOrSOOO 

ENTER FOR PRODUCTION WiJANTlTY 2 

COSTS ANIi UUflNtllT (I.E. ::0OOj7SOO>? 200(1. /500 

COST ERErtKtJQWN OF FIXED l^ND UARlftBLE CO'JTB 

FlXttl COSTS * 500 

VrtftlftELE COSTS * .2 EACH 

BREAK IN 270 
OK 



HAJOR SYhEDL lABLE - COST-H 

I 

I NfiME . . OESCRIPTION 

I 

i CI ,, COSIT IJF HUANTITV 1 

I ni .. QUANTITY 1 

I C2 ., COSiT OF UUANTITT 2 

I Q2 . . QUANTITY 2 

IV . . VARIABLE COSTS 

IF .. FIXEO COSTS 

I 



FUNCTIDNE USED 
I . — 

I NAHE 

J ... . 

I TAB 

J 



Analysis of Production Alternatives 

Progratn Name: COS'l'-3 

This program compares alternative production methods in terms 
of fixed and variable cost structures. The number of altcrnacives and 
the costs of each arc entered at the terminal in response to program 
promptir^. llie output consists of a schedule of profit/loss figures for 
each alternative, the schedule being printed for the range of values 
specified by the operator. 

Files Affected: None 
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5 CLEftR <?<JtJ 

10 f^EM SAWED fiT CDST3 

2r5 REM **t**:ft*t*t****** PRQCESSINB fiBEA ****** t **«***»:*»#«t*«4l 

10 PRINT 

40 PRINT "COiiPAREiS rtLTERHATrVE METHO&S OF PfiODLJETlCifJ" 

SO PRINT 

60 PRINT "ENTER THE NUMBER OF ALTERNATiyES TO BE CONSIDERED "; 

70 INPUT M 

SO PRINT 

<?0 DIM F(N) ,V(N) ,PtN>,CtN) ,R(N>,ft<M) 

100 FOR M=l TO N 

ilO I=-RIN1 "ENIER FIXED COSTS FOR METHflD " i M; 

120 INPUT F(M1 

130 PRIWT "ENTER iJARIABLE CC3STS PER UNIT FOR hETH0O"!M! 

140 IMPJJT V<M) 

ISO PRIMT "ENTER UNIT FftlfJE FOR METHOD" jM; 

liO INPUT P<M) 

170 PRINT 

ISO NEXT M 

ITO PRINT "ENTER FetSINNlwB ElUftNTITV FOR COMPUTftTI ONE " ; 

200 INPUT Qt 

2ia PRIMT "ENTER ENDING dJANTTTY FDR COMf UTftTIONS" i 

220 INPUT Q2 

230 PRINT "ENTER STEP INCREMEMTS TO BE PRINTED" j 

240 INPUT a 

250 PRINT 

260 PRINT 

270 PRINT "**«*******««*«**«*«***«#«*******««*»*«**««**»***»*" 

280 PRINT 

270 PRINT "PROFIT/LOSS COMPARiaON Tf^fiLE" 

300 PRINT 

310 PRINT "flUANTlTV'j 

320 FOR Mj-1 to N 

330 PRINT TftBUO*M) ! "METHOD";M! 

3-10 NEXT n 

350 PRINT 

360 PRINT 

370 REM *t****«*l»i|t* CfiL.CtlLATinN AND PRINTINB LOOP ****t*»«l«* 

380 FOR Q=ai TO 02 STEP S 

3<?0 PRINT Q; 

400 FDR H=l TO M 

410 R(M)=PtM)*a 

120 C(M>feF(M>+(V(M)*Q> 

fl-30 AIMJ^'RtMS-CfM) 

44i:i PRINT TfiB<10*MJ sAtM) 5 

4S0 NEXT M 

4A0 PRINT 

470 NEXT B 

430 PRINT 

4<?0 PRINT " *i(tli tut*** It*** f ********** ****t*******'ti****'t *******" 

500 REM **************** TERniNATiriN PUINT **li»jt»**»LI*****»**** 

510 PRINT 

520 STOP 

RUM "COST-S- 

CUHf'AREi; ALTERNATIVE METHODS OF PRODUCTION 

EMTER THE NUMtEK Of AL TS^MNA T 1 Wgy F!} Dt KQHSlUfLRED ? g 

EMTER FIXED COSTS FOR METHOD 1 ? 600 

ENTER yflRIABLE. COSTS PER ONIT FDR METHOD 1 7 . ?S 

ENTER UNIT PRICE FOR METHOD ) ? 1,00 

ENIER FIXEP COSTS FOR METHOD 2 T 1000 

ENTER yflRIAELE COSTS PER UNIT FOR METHOD 2 ? . 50 

EWTER UNIT PRICE FOR METHOD a 7 1.10 



ENTER BEGINNING OUANTITY FOR COMPUTATrOMST 100 
ENTER ENBIND OUANIITY KQR CUHPUTftTIDNST 2SO0 
ENTER STEP .INCREHENTS TQ BE PRINTEIIT 100 



i^-iif:t'i^ikt**tt*t*'lf1f**>t****t*^*'lt**if'f*ii.'t^^***t*'<f^*****-*i' 



PROFIT/LOSS CDMh-rtRlSUN TABLE 



OUANTITY METHDt" 1 rtETHOD 3 



100 


-573 


-940 


200 


-5S0 


-880 


300 


-525 


-sao 


Aoa 


-500 


-740 


500 


-^73 


-700 


iOO 


-430 


-440 


700 


-425 


-5S0 


800 


-400 


-520 


?00 


-375 


-4iiO 


1000 


-350 


-400 


1100 


-325 


-;J40 


1200 


-300 


-■280 


1300 


-275 


-220 


1400 


-250 


-140 


J500 


-225 


-100 


1^00 


-200 


-40 


1700 


-173 


20 


ISOO 


-150 


SO 


IVOO 


-123 


140 


2000 


-100 


200 


2100 


-75 


260 


2200 


-50 


320 


2300 


-25 


380 


2-100 





440 


2500 


25 


500 


*#***%))!!((**************** 


BREAK IN 


520 




OK 







MAJOR SYMBOL TftBLE - COST-3 


I MAME 


. DESCRIPTION I 


I m > 


. PROFIT/LOSS rtRRflY I 


I ceo 


. TOTAL COST BRRflY I 


I F(> 


. FIXED COST ^RRAY I 


I N 


, METHOD/BLTERNrtTIVE NUMBER I 


1 » 


. NUMBER OF ALTERNftTIVKS TO COMPARE I 


I P<> 


. JMIT PRICE ftRRAr I 


I a 


. QUfiWTITY TO BE PRINTED 1 


1 ni 


. 6EGINNIN(3 ClUftNlITY TO PRJMT I 


I HZ 


. eNPTNC tJUANTJT'i' ro PRINT 1 


I R( > 


. REklENUE ARRftV I 


r s 


, STEP tNCREHEWT FOR PRINTINS I 


I v<> 
I 


. WKIAELE COST ARWAV I 



FUNCTIDM5 UiiEn 

J 

I hl(^hE 

1 TAB 
I DIM 
I 
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Production Cost Comparison 

Program Name: COSl'-4 

'I'his p/ogram prepares another form for comparison of alternative 
production methods in terms of their fixed and variable cost structures. 
The number of aJternarives and the costs of each arc entered at the 
terminal in response to program prompting. The output is a schedule of 
production cost figures tor each alternative and is printed for the range 
of values specified by the operator during piogram initialization. 

Flies Affected: None 

5 C)-EfiR 900 

lO REM SAVED AT C03T4 

20 REM ^ft*************** PROCESSING AREft ^k******************** 

S5 CLS 

30 PRINT 

4^0 PRINT "COMPARES ALTERNATIVE METHODS OF PRODUCTION" 

SO PRINT 

SpO print "ENTER THE NUMBER HF ALTERNATIVES TO BE CONSIDERED " ) 

70 INPUT N 

BO pfiiwr 

90 DIM F(N>,V(N) ,C(N) 

lOD FDR M=l TQ N 

110 PRINT "SNTER FIXED COSTS FOR tIETHOD "sMi 

120 INPUT F/M) 

130 PRINT "ENTER VARIAELF CDBTS FER UPJIT FOR f1FTH0D"!M; 

140 INPUT V(M) 

1 SO PI9 i NT 

liO NEJ(T M 

170 PRINT "ENTER BEBINNINQ OUANTITY FOR COMPUTATIONS"; 

ISO INPUT El 

190 PRINT "ENTER ENDING GtlfiMTITY FOR COMPUTATIONS"; 

200 INPUT H2 

210 PRINT "ENTER STEP INCREMENTS TO BE PRINTED"; 

220 INPUT S 

T30 PRINT 

240 PRINT 

250 PRINT "*»IK**i#**«***«t»**#*t******«**5ll*t** ******** «**»****" 

2tO PRINT 

270 PRINT "TDTAL COST COMPARISON SCHEDULE" 

2B0 PRINT 

E^O PRINT "mWNT/TY"; 

300 FQR M"=l TO N 

310 PRINT TSBdOth) ;«METHOD"3l1; 

320 NEXT W 

330 PRINT 

-ii\a PRINT 

350 REM ************ CALCULATION AND FPINTINB LOnP **■**«***«*« 

r?60 FQR C!~Qi TO az STEP S 

370 PRINT a; 

3SO FOR M=l TO N 

390 C<M»=F<M>-l-<VtM) »IP> 

400 PRINT TABlltl*MJ !C<M> s 

410 NEXT 11 

420 PRINT 

430 NEXT B 

440 PRINT 

4SO PR INT "**********il<**ik*******t**i***4:t*ilc*****1i**ili****)»9t«**):" 

460 REM «*«***«****»**** rERMTNATiON POINT ****** *****(!t* + t*t* 

470 PRINT 
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C:ohPAF<£8 <4l_TERNATJt;E METHODS DF PRDDUCTIDN 

ENTER tHE NUMftlfR OF ALTERNATIVES TI3 BE Cn^JSIDERED ? 2 

EWTERi FIXEO COSTS FOR METHOD 1 7 iOO 

EH1EK yARIAULK CCISTK PER UNIT FOR MLTHOrr \ T ,75 

ENIEH FIXED COSTS FOR METHOD 2 T 1000 

ENTER VA^rABLE COSTS f-L'K UMIT FOR METHOE 2 ? .5 

fWTER EEErWMIHG iJUrtNTrrV FOR CCMPU'MTHJNS? 100 
EhlLR EHETNC ajftNTITY FOR COHPUTftTIONS? 2a(H> 
EMTEft STEP INCREMENTS TO BE PRJNTEOT 100 

TOTAL COST COMi*ARISOW SCHEDULE 
OUflMTITY METHOD 1 METHOP 2 



100 


4 75 


1050 


200 


730 


1100 


300 


82S 


1150 


4^0 


900 


1200 


SOO 


??S 


1250 


^00 


toso 


1300 


700 


112S 


13S0 


SOO 


1200 


t400 


900 


127S 


14S0 


1000 


13S0 


1500 


1100 


1425 


1550 


i;}oo 


1500 


1400 


1300 


1575 


1650 


1100 


1A50 


1700 


1500 


1725 


l^^SO 


JAOO 


ISOO 


lOOO 


1700 


1B75 


laso 


ISOO 


1950 


1^00 


1?00 


202S 


1950 


3000 


:;ioo 


aooo 


2100 


2175 


?5S0 


2300 


2250 


21D0 


2J00 


232S 


2150 


3JI00 


2400 


2200 


2S0O 


247S 


2250 


BREAK IN 


480 


:$ti1t:^M'^'^ 


OK 







MWOR SYMBOL TrtBLE ■- CDBT-4 



I MftME 



, . DESCRIPTION 



I F<) .. FIXED COST ARRAY 

I yo .. OARIflBLE COST ARRAY 

I CO .. TOTAL COST!> ARRflY 

IN ,, WUMBEfi OF ALTERN*5TIWLS TO COMPARE 

I M .'. httrHOD/f^LTERKfAriVE NUMBER 

1 ai ., 6EEINNIMG OUftHriTY TO BE PRINTED 

I Q2 ., ENDING QlJANlI TrY 10 BE PRINTEIf 

10 .. ouANTiTv eeiNc ffijMTep 

IS > . STEP INCREMETNT FHR PRINTING 



FUHCTIDWE USED 
I J 

I NAME I 

T J 

I TAB 1 

I DIM 3 

I J 




Lansuage Features Used 



All programs in this book were de\'cloped, tested, and run on an 
Alcair 8800b Microcomputer System operating under AUair's Revision 
4.1 of their Disk Extended BASIC. 

Since many of the programs use disk-file handling procedures and 
other features of the BASIC language that differ from manufacturer to 
manufacturer, every attempt has been made to minimize this potential 
source of difficulty. When possible, features that could present compati- 
bility problems (such is file handling routines) have been isolated into 
separate subroutines to minimize conversion requirements. Each pro- 
gram contains a symbol table and a table of functions used to help 
clarify problem areas. 

To further your understanding of the features used in the programs 
and to provide information that will help you overcome any compati- 
bility problems, language features are discussed in some detail in this 
Appendix, 



GENERAL 

Variable names All variable names hive been defined as either nu- 
meric or alphainmieric. Alphanumeric data names are terminated 
with a dollar sign, $; that is, AO is numeric whereas A0$ isalphanu- 
numeric. 

Arrays /Vrrays have been defined with DIM statements. Altair BASIC 
(by default) will treat any variable as a twelve-position array. Care 
has been taken to insure that ail variables have been explicitly 
dimensioned, however. Variable dimensioning using a previously 
defined variable name as the dimension size of the array is also 
allowed. If this usage causes problems, replace the variable name in 
the statement with the number that the variable name was assigned. 

File handling nf random files Altair BASIC requires all random-file 
records to be 1.28 characters long, A smaller record size will be 
accepted, but disk utilization remains at 128 characters. The buffer 
(input-output) area for random files is defined separately from all 

2&1 



other character variables. Therefore, explicit action is required to 
define the character names associated with the random record. This 
is accomphshed by m^ans of the FIELD function. All character 
names in the record are defined using FIIiLD to indicate their 
names, size, and location in che record. Note that all items to be 
placed ill the random buffer area have to be moved to that area 
using the LSET command instead of the normal LET or default 
assignment. Since Altair BASIC allow.': only character data to be 
placed in the buffer, all numeric data names are converted prior to 
being moved to the buffer. MKS$ and MKIS are the functions used 
to perform this task. The reverse functions, CVS and CVI, arc used 
to decode the record items for later use as numeric variables. 



FUNCTIONS USED 

ABS This function returns the absolute value of x. For example, ABS 
{-1)-1=ABS(1). 

CLOSE This function closes all files; CLOSE x closes file number x. 
An end-of-filc record is written to the file when the CLOSE com- 
mand is executed on a file that is open for output or use as a ran- 
dom file. 

CV! This function converts a field that has been previously encoded 
to the character value of an integer using the MKIS function. It is 
used exclusively for returning items from a r;uidom-filc input 
buffer, 

CVS This function converts a real number field that has been 
previously encoded to its character representation using the 
MKS$ function. It is used exclusively for returning numeric (real 
numbers) from a random-fde input buffer. 

DIM This function dimensions a variable name. For example, DIM 
A(12) provides a numeric field A that consists of 12 variable 
length address locations. The sixth location is addressed as A(6). 

EOF rhis function cheeks tlie status of a file ro determine if it is at 
an end-of-file condition. For example, EOF(l) is true if file number 
one has previously input its last record. 

FIELD This function defines the variable names that are contained 
in a random-file input-output buffer. Ic defines the name, size, and 
location of the variables in the buffer. For example, FiKLD #1,2 
AS XS, 4 AS Z$, defines the buffer as containing X$ in the first 
two positions and ZS in the third through sixth positions. 

GET This command returns a record from the random file; for ex- 
ample, GET #1,7 returns the record number seven from the ran- 
dom file that has been opened as file number one. 
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GOSUB This instruction causes bijinching to a subroutine. GOSUB 
500, for instance, would take the ncxr inscruciion from line 
number 500 and continue from that point until a RETURN 
statement is encountered. The RETURN statement would cause 
control to return to the first instruction immcdiatdy following the 
GOSUB. 

JNT This function causes the truncation of all decimal positions, 
lea^'ing only the whole number; consequently, INTC12J4)= 12. 

INFUT4 This command causes input to come from rhefile number 
following the #. 1NPUT#1, X$, for instance, reads the next item 
from file number one and places it into variable name X$. 

KU.L This function deletes a file from the disk. KILL "XXX" will 
delete the entire file XXX from the disk, for example. 

LEFTS This function returns the leftmost I positions from a charac- 
ter variable. LEFT$(X$,2), for instance, returns the two left- 
most characters of the variable X$. 

LBN This function computes the length of the variable specified. 

LOF This function returns the last record number used in a random 
file. I'or example, LOF(l) returns the record number of the las: 
avaiUble record in file number one. 

LSET This assignment statement causes data to be placed in the 
random-fi[e buffer, LSET X$=Z$ will assign the value stored at 
Z$ to the variable location defined as X$ in a FIELD statement. 

M1D$ This function returns characters from the specified locations 
in a charactet string. M1D$(XS,J,2), for instance, returns two 
characters from the string X$, starting from the third character 
location. When XS^-'ABCDR FG," MiD${X$.3,2)=CD. 

MKF$ This function converts an integer to a two-character field for 
storage in a random-file buffer. 

MKSS This function converts a real number into a four-character 
representation for storage in a random-file buffer. 

NAME This function renames a file; for example, NAME "X" AS 
"Y" changes file X to file Y in the disk directory. It is a permanent 
change, 

OFIiN This function causes a disk file to be made available for input 
{1), Output (O), Of both (R). The form of the command is OPEN 
X, y, f, d where x indicates whether the file ix input, output or 
random; y is the file number for later use in input/output com- 
mands; f is the file lamc; and d is the disk number, OPEN "i," 1, 
"XXX," O opens the file named XXX on disk number Kero as 
input and associates it with file number one, 

PRINTif This command causes a record to be written to the file 
number that follows the # sign. 

PUT# This command causes a record to be written to a random file. 
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Like the GET command, PUT#1,7 will write the random-file 
buffer for file one to the seventh record position of that file, 

RETURN This command returns to the next instruaion following 
the last GOSUB. 

RIGHTS This function returns the rightmost positions of a charac- 
ter variable. RlGHT$<X$,2), for instance, returns the last two 
characters in the field named X$, 

SPACES This funcrion returns a specified number of blanks. 
SPACE$(15) returns fifteen blanks. 

SQR This function returns the square root of the argument. 

STRS This function returns the character representation of the 
argument. 

TAB TAB(x) causes the printer (terminal) to move to position x. 

VAL This function returns the numeric value of the character vari- 
able specified. If the field is not numeric, the value is 0. 
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